open(INF,"file.txt") || print "Cannot open file\n";
@data= <INF>;
close(INF);
@sortdata = sort { $a <=> $b } (@data);
foreach $i (@sortdata) {
# Print stuff
}