sub insert {
   my ($table,$hash) = @_;
   my $sth = $dbh->prepare(
      "insert into $table ("
      . join(',', keys %$hash)
      . ') values ('
      . join(',',map '?',keys %$hash)
      . ')'
   );
   $sth->execute(values %$hash);
}