Bei Deinem Code wirst Du die innere while-Schleife nie erreichen, weil Du vorher mit dem next zum Anfang der äußeren Schleife springst.

Bzgl. Hash und Modern Perl kann ich mich pq nur anschließen.

Ich selbst bin ein großer Fan des Modern-Perl-Tutorial. Allerdings kann es sein, dass es für Dich etwas zu knapp geschrieben ist, denn es setzt teilweise voraus, dass man grundsätzlich schon fit im Programmieren ist.