$sql = qq{ INSERT INTO dat2  VALUES (}. (join ',', ('?')x 16) . ')'; 
$sth = $dbh->prepare($sql);
$sth->execute(@zeile);