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

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