my @reversed = reverse @sorted; for my $i (0..$#reversed) { print $reversed[$i], "\n"; }