Wenn du den Code nutzt, der oben steht, kann das auch nicht funktionieren. Du Erzeugst keine "Text::CSV" Objekte.
Ich wunder mich warum das Script nicht mit Fehlern abbricht, da einige Variablen nicht definiert sind und du "strict" nutzt.