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