sort { $data{$keys[$b]} <=> $data{$keys[$a]} [download]
In reply to Re^2: Sorting and ranking by Anonymous Monk in thread Sorting and ranking by Anonymous Monk