Manchmal mag Perl es nicht, wenn man Arrays manipuliert, waehrend man ueber sie manipuliert. Du solltest den Algorithmus also vielleicht in zwei Schleifen aufteilen.

Das war jetzt aber nur geraten. Ich habe das Script nicht naeher analysiert und weiß nicht, warum genau es "kein brauchbares Ergebnis" liefert. Du solltest dies naeher beschreiben, denn es ist keine genaue Phrase.