Please take a little time to format and indent your code properly. This looks like a mess. You can use perltidy if you don't want to do it by hand.

Also, is there any particular reason you don't want to use the reverse keyword?

You're right that you need to do something to the "for" line Let's examine that statement a bit more:

for (
      my $i=0;        # start with this value of $i
      $i <=$#sorted;  # loop while $i <= $#sorted(the last index in @s
+orted)
      $i++            # increase $i by one after each iteration
    ) {
   print "$sorted[$i]\n";   # print element number $i
}
[download]

Take a few moments to think and it should be clear how to reverse this loop.