Schalte die Warnungen an!!!

und entferne die Newlinezeichen, dafür gibt es eine (bzw zwei) Funktion(en). http://perldoc.perl.org/functions/chomp.html

Was du da poppen willst ist mir nicht klar und aus deinem code auch nicht ersichtlich.

[EDIT]noch was, das mit den Warnungen und Taulmarills Antwort bezog sich auf das hier: