sub sqinsert ()  {
       my ($names, $formdata) = @_;
       my $fields = join(', ', @$names);
       my $places = join(', ', ('?') x @$names);
       my $sql = "INSERT into $table ($fields) values ($places)";
       $sth = $dbh->prepare($sql);
       $sth->execute(@$formdata) || die $dbh->errstr;;
       $sth->finish();
       }