my $dbfieldlist = join ", ", @fields;
  my $dbfielddata = join ", ", map { $dbh->quote($_) } $form->field;

  my $insert = $dbh->prepare(
    INSERT into $DBTABLE ($dbfieldlist) VALUES ($dbfielddata)
  );
  $insert->execute();