Select Code to Download

my $tstr = '?';
my $tv = join (', ', @table);
...
} else {
   warn("\@data is not the same size as \@table; tried to put ".scalar
+ @data." items into ".scalar @table." columns.");
}

$sth->execute( undef,@data )