21. Perlsort 2

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