#!/usr/bin/perl
#Program name: perlsort2.pl
#  sort all lines of a text file (given on the command line) alphabetically
#$x = 0;
while (<>)
{
  $someList[$x] = $_;
  $x++;
}
@sortedLines = sort @someList;
print @sortedLines;