for my $zeile(@inhalt) {
   my @z = split /,/, $zeile;
   if (scalar @z == 7) {
     $query_fuellen0->execute(@z) or warn $dbh->errstr;
   }
   else {
     warn("### Daten sind nicht korrekt! $zeile");
   }
}