You can either call reverse or else gimmick the sort function by changing the order of comparison to {foo($b) <=> foo($a)} (or whatever).