Wenn du while (<LISTE>) schreibst, muss natürlich das $_ = shift(@irgendwas) weg. Das while (<LISTE>) füllt schon automatisch Zeile für Zeile in $_.



Edit: Typo.\n\n

<!--EDIT|Dubu|1145061894-->