間違っていた箇所を修正しました。
ご指摘いただきありがとうございますm(_ _)m

‘values’と’reverse’は初めて知りました。
なるほど…、今度使ってみます。

binmodeは存在自体を忘れてました…。
確かにencode入れる必要なくなりますね。
ちゃんと記憶しとかないと…。

値でソートする場合、キーが不要であるなら、’values’を使ってソートすることも
できます。あと降順にソートする場合、昇順にソートしたものに reverseを適用する
方法もあります。この場合、ブロックの部分を書かなくて済むこともあるので、
場合により見やすくなると思います。(書籍「Perlベストプラクティス」では reverse
を使う方法を推奨しています。)

あと UTF-8に encodeするのであれば、
binmode STDOUT, “:utf8”;
の一文を use utf8の下あたりに追加しておけば, encodeを記述する必要がなくなります。