>>73です。何度もすいません。
sort { $b <=> $a }でソートされるのはわかったんですが、
どこに記述すればいいのかわかりません。
21行目に、sort {$b <=> $a} %count　と書くと、ソートされた数字のみが表示されてしまいます。