for my $zeile(@inhalt)
  {
  $query_fuellen0->execute( split /,/, $zeile ) or warn $dbh->errstr;
  }