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