Select Code to Download

while (my $line = <CSVFILE>) {
     $line =~ tr/"\r\n//d;

use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
...
    push @final, [ @prefinal, $row->[0], $row->[3] ];
    }
close $fh;