#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS qw( csv );
print "$^V - $Text::CSV_XS::VERSION";

my $sheet = [['a','b','c,d'],[1,2,3]];
csv(in => $sheet, out => 'file.csv');