my $sth = $dbh->prepare(qq{

  insert into `index` (webdesc, webtext, uploader, pagerank, last_review, url, $});
while (defined(my @line = <FILEHTML>  )) {
$sth->execute(@line);
$sth->finish();
}
close FILEHTML;
}
  close FILE;