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

##</code><code>##

for (my $i=$#sorted; $i>=0; $i--) {
   print $sorted[$i], "\n";
}