$dbh->do( qq{INSERT INTO kunde (v_name, n_name, strasse, plz, wohnort, email) VALUES(?,?,?,?,?,?)},
 $vorname,
 $nachname,
 $strasse,
 $plz,
 $wohnort,
 $email
);