sub update {
  my $spalte1 = shift;
  my $spalte2 = shift;
  my $spalte3 = shift;

  my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
  my $rows = $dbh->do( $stmt, $spalte1, $spalte2, $spalte3 );

  print "$rows Zeilen aktualisiert\n";

  $dbh->commit;
}

update($spalte1, $spalte2, $spalte3);