Select Code to Download

my $place_holders = "?," x keys %hash;
chop $place_holders;

my $sth = $dbi->prepare("INSERT INTO my_lovely_table (".join(",", sort
+ keys %hash).") VALUES ($place_holders)");
$sth->execute( @hash{ sort keys %hash } );