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.
in reply to For Loops and Reversing output
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:
Take a few moments to think and it should be clear how to reverse this loop.
my $i=0; # start with this value of $i
$i <=$#sorted; # loop while $i <= $#sorted(the last index in @s
$i++ # increase $i by one after each iteration
print "$sorted[$i]\n"; # print element number $i