Select Code to Download

my $csv = Text::CSV_XS->new ({
    quote_char => '"',
...
    for my $i (0..$#data) {
        push @{$columns[$i]}, $data[$i];
        }

my $csv = Text::CSV_XS->new ({
    binary             => 1,
...
        my ($key, $value) = split m/"?:"?/, $_, 2;
        # ... 
        }