sub insert {
   my ($self,$table,@values)=@_;
   my $query = sprintf("insert into %s values (%s);",
                          
                           $table,join(",",@values));
   $dbh->do($query);
}