Kleine Korrektur:
CSV-Datei bearbeitet mit "open filehandle Datei":
-nichts ( , ) wird zum leeren String


Wenn ich es so schreibe, wird nichts aufgefressen
my @row = ( 3,,,'Ungarn' );
say $fh ( join ',', @row );