for(reverse sort @foo)

##</code><code>##

for(sort {$b <=> $a} @foo)