辞書式に降順してるんでしょ。
reverse sort {$a <=> $b} @count
で、どうでしょ。チェックしてないけど。