sub add_kunde
{
  my $dbh=shift;
  my @data=@_;
  return 0 unless(@data==12); # sind es 12 Werte?
  my $sth=$dbh->prepare("INSERT INTO kunden VALUES (?,?,?,?,?,?,?,?,?,?,?,?)");
  $sth->execute(@data);
  $sth->finish();
  return 1;
}