Select Code to Download

my $hash = {
   name  => 'Joe',
   phone => 222,
   code  => 'A',
};

sub insert {
   my ($table,$hash) = @_;
...
   );
   $sth->execute(values %$hash);
}