my $sql = qq|INSERT INTO dat2 VALUES (| . join(', ',map { $dbh->quote($_) } @zeile) . qq|)|;
my $sth = $dbh->prepare($sql) or die $dbh->errstr();
$sth->execute();