11. Discovery Q3

#!/usr/bin/perl
#program name: discoveryq3.pl
open (FILEIN, "ex2numbers") || warn "could not open the file\n";
$x = 0;
while (<FILEIN>)
{
$somelist[$x] = $_;
$x++;
}
@sortedlist = sort numbers @somelist;
print @sortedlist;
sub numbers
{
$a <=> $b;
}