Put this code in your program file:

use strict;

print sort {$a <=> $b} <>

__END__

Usage example: sort.pl data.txt
[download]