"perl_sort.pl" 7 lines, 301 characters 
#/usr/bin/perl
open(MYINPUTFILE, "<h2z_zdl0.000"); # open="open" for="for" input="input"
my(@lines)="<MYINPUTFILE">; # read file into list
@lines = sort(@lines);          # sort the list
my($line);foreach $line (@lines) # loop thru list
{   print "$line";                  # print in sort order
} close(MYINPUTFILE);