#!/usr/bin/perl
open (input, "<SAPPDAY.00063");
open (out, ">SAPPDAY.00063out");
#!/usr/bin/perl
#!/usr/bin/perl
#!/usr/bin/perl
open (IN, "<temp65") or die "couldn't open file for reading";
open (OUT, ">temp95")or die "couldn't open file for writing";
@EDI=<IN>;
#$number=$#EDI;
close (IN);
#$Id=substr($EDI[0],6,5);
#print $Id;
#print $number;
@temp=map{[substr($_,6,5),$_ ]} @EDI;
@temp= sort {$a->[0] cmp $b->[0]} @temp;
@ordered=map {$_->[1]} @temp;
$count=1;
#$ele=$#ordered;
#print "$ele\n";
for $x (0..$#ordered){
 #$num=substr($ordered[$x],3,3);
 #print "$num is right\n";
 $ordered[x]=~s/(substr($ordered[$x],3,3))/$count/;
 $count++;
}
print OUT @ordered;
close (OUT);