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