Added Perl script for sorting rows in a document