#!/usr/bin/perl
#Program name: perlsort5.pl
#  sort numerically using a spaceship operator.
#  numbers are given in a file (specified on the command [one number per line])

$x = 0;
while (<>)
{
  $someList[$x] = $_;
  $x++;
}
@sortedLines = sort {$a <=> $b} @someList;
print @sortedLines;


