my $result = $dbh->do("INSERT INTO tbl VALUES(?,?,?)", undef,
  map scalar param($_), qw(Col1 Col2 Col3));