csv ( in => csv ( # not { in => *INPUT, blank_is_undef => 1, on_in => sub { $_ //= "NULL" for @{$_[1]}; }, ), out => *OUTPUT, eol => $/, );