[...]
@zeile = map{$dbh->quote($_)}@zeile;
$sql = qq{ INSERT INTO dat2  VALUES (@zeile)}; 
$sth = $dbh->prepare($sql);
$sth->execute();
[...]