23. Perlsort 4

#!/usr/bin/perl
#program name: perlsort4.pl
$x = 0;
while (<>)
{
        $somelist[$x] = $_;
        $x++;
}
@sortedlist = sort numbers @somelist;
print @sortedlist;
sub numbers
{
        $a <=> $b;
}