#!/usr/bin/perl
open (ORIGFILE,
"H2Z_ZDL0.000");
open (FINALFILE, ">sorted.txt");
print FINALFILE
sort(<origfile>);
close (FINALFILE);
close (ORIGFILE);