my $csv = Text::CSV->new ({ quote_space => 0, eol => "\n", auto_diag => 1 });
 
my @columns = ("What, a nice day", "This is a fence", "Here is an,and day");
$csv->print ($fh, \@columns);