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