Wenn du den größten Wert willst, solltest du auch den größten nehmen, und nicht die Anzahl der (jetzt sortierten) keys.

Update: Ich kann dir auch use List::Util qw(max); ans Herz legen.