#!/usr/bin/perl
#program name: discoveryq2.pl
@somelist = ( 1 , 8 , 12 , 1000 , 5 );
@sortedlist = sort numbers @somelist;
$x=0;
while ( $x < 5 )
{
print @sortedlist[$x++];
print ("\n");
}
sub numbers
{
if ($a < $b)
{ -1; }
elsif ($a == $b)
{ 0; }
else
{ +1; }
}