my $csv = Parse::CSV->new (
    file           => $xFile[$k],
    header         => "auto",
    names          => 1,
    empty_is_undef => 1,
    auto_diag      => 1,
    callbacks      => {
        after_parse => sub { $_ ||= 0 for @{$_[1] }
        },
    ));