$dbh->do(
  qq{INSERT INTO tabelle (Feld1,Feld2,Feld3,Feld4) VALUES(?,?,?,?)},
  undef,
  $wert1,
  $wert2,
  $wert3,
  $wert4
);