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