Select Code to Download

my $aoh = csv (in => $xFile[$k], headers => "auto", callbacks => {
    after_parse => sub { $_ ||= 0 for @{$_[1]} }});

$ cat test.pl
#!/pro/bin/perl
...
        z                => 0
        }
    ]

my $csv = Parse::CSV->new (
    file           => $xFile[$k],
...
        after_parse => sub { $_ ||= 0 for @{$_[1] }
        },
    ));