use DBI;
my $dbh=DBI->connect('dbi:CSV:');
my $AoA =[ ['number','name','sex','age'],
           ['0','Jack','M','28'],
           ['1',"Marry",'F','29'] ];
$dbh->do("CREATE TABLE worksheet AS IMPORT(?)",{},$AoA);
__END__