Na ja, von jeder Menge stilistischer Dinge abgesehen, probier besser mal or die statt || die. Und gib auch die eigentliche Fehlermeldung mit aus, die in $! steht. Ansonsten macht es sicher Sinn, ein Modul wie Text::CSV_XS oder noch sinnvoller DBD::CSV zu verwenden!

EDIT: Wo ich mir die Beispieldaten so betrachte: Arbeitest du zufällig für einen Ingenieursdienstleister mit drei Buchstaben?!