Or, for a platform-independant solution using DBD::CSV with the most recent SQL::Statement:

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__
[download]