open(IN, "<sort.in") || die "\nCan't open ap3.07 \n";
open(OUT, ">sort.out");
@array=<IN>;
close (IN);

@sortedarray=sort {$a <=> $b} (@array);

foreach $line (@sortedarray){
print OUT $line;
}

close(IN);
close(OUT);