Der Code sieht korrekt aus, wenn auch ein wenig umständlich und unübersichtlich.

Ich finde zum Beispiel, dass Schleifen der Form for my $VAR (0 .. $BOUND) klarer lesbar sind als while-Schleifen mit manuellem Zählermanagement. Und eine Steuerung der Sortierrichtung könnte man beispielsweise elegant durch Multiplikation des Vergleichsergebnisses mit +1 oder -1 erreichen.

Übrigens verstehe ich auch nicht ganz, warum die Daten in Hashes mit numerischen Schlüsseln abgelegt sind. Wären da nicht vielleicht Arrays sinnvoller?