Im Code von topeg muesste man kurz vor der while-Schleife noch so etwas wie "my @elemente;" schreiben, ansonsten muesste es funktionieren.

Die betreffenden Zeilen dann in eine andere Datei zu schreiben, sollte auch verhaeltnismäßig leicht sein. Wenn Du noch damit Probleme hast, zeig uns bitte mal Deinen Ansatz. Dann koennen wir sehen, womit wir helfen koennen, und muessen nicht den ganzen Code selbst schreiben. Dabei wuerdest Du ja auch nichts lernen.
Wie Frage Ich bei PerlCommunity?\n\n

<!--EDIT|betterworld|1160961088-->