for my $zeile(@inhalt9)
   {
   #next unless $zeile;
   $query_host->execute($zeile) or warn $dbh->errstr;
   }