my $csv = Text::CSV->new ( { quote_space => 0 } )
                 or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
my @columns = ("What, a nice day", "This is a fence", "Here is an,and day");

print $csv->string() if $csv->combine(@columns);

##</code><code>##

"What, a nice day",This is a fence,"Here is an,and day"