Ich denke, dass wäre genau wie die Lösung von Jan.
Alle Keys durchgehen, um das größte jeweils zu finden muss man eh. Ob selbst über sort oder ob über List::Util::max
Und ob man nun in einem um einen Eintrag verringerten Hash sortiert oder über den ganzen und dann einfach von sort das Ergebnis [1] verwendet kann ein so großer Unterschied eigentlich nicht sein.

Vielleicht möchtest du das als Übungsaufgabe mal benchmarken.