http://www.perlmonks.org?node_id=589194

brusimm has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I am looking for a way to print output to my screen in the reverse order that it sits in my array, BUT, without using the reverse command, like i do in my example. Here is my code, at the moment, for printing output to the screen from a file:
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;
I know I am close, but not sure how to context the issue. It's in the formatting of the "for (my.." line, I think. Isn't it? Any assistance / hints or pointers would be appreciated in this perplexing matter. Thank you.