my $input = 'somelist'; # Original Line open(my $in, "<", $input) or die "Could not open $input because $!\n"; my @unsorted = <$in>; chomp (@unsorted); # get rid of end-of-record markers close ($in); my @sorted = sort @unsorted; for (my $i=0; $i <=$#sorted; $i++) { print $sorted [$i], "\n"; } @rocks = reverse(@sorted); foreach $rock (@rocks) { $rock = "\t$rock" ; # \t is a tab $rock .="\n" ; } print "\n"; print "The names, backwards, are:\n", @rocks;