22. Perlsort 3

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