Your original post did not specify that. Please see I know what I mean. Why don't you? and How do I post a question effectively? Could you please show some sample input and output that is representative of what you are trying to print? Otherwise, we're just guessing at the correct answer.

use Text::CSV;
my $csv = Text::CSV->new({binary=>1,eol=>$/,
    quote_char=>undef,escape_char=>undef});
$csv->print(\*STDOUT, ["1","2",'""']);
__END__
1,2,""
[download]