Bitte versuch den Algorithmus, den Du verwendest, zu verstehen. Das ist essentiell dafür, dass Du ihn angepassen kannst für Dein Problem.

Hier ist eine Erklärung zu dem Algorithmus, den Du benutzt: http://www.perl-community.de/bat/poard/message/124...
(Der Code da ist ein kleines bisschen anders, aber im Prinzip funktioniert es genau so wie Deiner.) Wenn Du noch Fragen dazu hast, kannst Du sie gerne stellen. Du wirst sehen, dass es hinterher ganz einfach geht, Dein Problem zu lösen.