Select Code to Download

#### or with placeholders:
my $col_spec = join ',', keys %data;
...
my $sql      = "insert into my_table ($col_spec) values ($val_spec)";

$dbh->prepare($sql)->execute(@data{keys %data});

#### or with placeholders:
my(@col_names, $sth);
...
    my $sql      = "insert into my_table (@col_names) values ($val_spe
+c)";
    $sth = $dbh->prepare($sql);
}

$sth->execute(@data{@col_names});