my $affected_rows = $dbh->do(
  q{
   UPDATE DGKTO_BASIS
   SET SVT_BEITRAGSKONTONUMMER = ?
   WHERE VERSICHERUNGSTRAEGERCODE = ? and DIENSTGEBERKONTONUMMER = ?
   },
   undef,
   $upd,
   $key1,
   $key2
   ) or die $dbh->errstr();