:
:
my $sql=sprintf("insert into %s values (%s);",$table,
                           join(",",map{ "?" } @values));
my $sth=$dbh->prepare($sql) 
    or die $dbh->errstr;
$sth->execute(@values) or die $sth->errstr;