$dbh1->do
(qq{INSERT INTO tabellenname (ID, time, gerät , beschreibung , text, index , test)
    VALUES(?,?,?,?,?,?,?)
   },
     undef,@zeile);