2
3
3
3
5
7
8
12
... 

##</code><code>##

2 3 3 3 5 7 8 12 ...

##</code><code>##

my @data = split /\s+/,<$in>;

##</code><code>##

 my @new_sort = sort_num (@data);