Select Code to Download

my $row;
local $"='|'; print STDERR "<@$row>\n";
...
    $csv_out->print( $fh_out, [ @$row[ 2, 3, 0, 4 ], ] );
}
print STDERR "<$row>\n";