Nur eine Bemerkung nebenbei: Die Dinger mit dem Prozentzeichen heißen Hashes und nicht Arrays. Manchmal werden sie auch als "assoziative Arrays" bezeichnet, aber dann ist das "assoziativ" auf keinen Fall wegzulassen. Im Perl-Bereich wird aber fast nur der Begriff "Hash" benutzt.

Arrays hingegen sind die Dinger mit dem @At-Zeichen, sie haben keine Schluessel-Wert-Paare sondern einfach nur Werte.

Übrigens sieht while(sort) auch etwas seltsam aus... was soll das bewirken?