
use strict 'vars';
if (@ARGV==0) { 
  @ARGV = ("Arthur", "abacus", "ant", "Amsterdam", "AT&T") 
}
my @sorted = sort {lc $a cmp lc $b} @ARGV;
print "Sorted: @sorted.\n";


