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