Willkommen bei Perl und im Forum ;-)

Ich habe meinen Code in der vorigen Antwort etwas abgeändert.
Die Arrays werden nun etwas anders (simpler) deklariert.

Probier es aus. Wenn etwas unklar ist, frag weiter nach ;-)

Ein Hinweis zum Forum:
In der Regel reicht es, wenn Du nur auf "Antworten" klickst. Da hier die Antworten eingerückt werden, sollte relativ klar sein, worauf Deine Antwort sich bezieht.

Eine "Antwort mit Zitat" ist daher oftmals nicht nötig. Wenn Du Dich auf einzelne Passagen beziehen magst, dann kürze das Zitat auf die relevanten Teile.