Zeig doch mal bitte wie der fehlerhafte Code war und wie die richtige Lösung.
Es gibt hier bestimmt Perl-Lernende, die auch solche Fallen umschiffen und was dazu lernen wollen.