Select Code to Download

my $sql = sprintf "insert into mytable (%s) values (%s)",
             join(",", @columns),
             join(",", map {'?'} @values);  # couple different ways to
+ do this part
$dbh->do($sql, {}, @values);

use SQL::Abstract;
my $sql = SQL::Abstract->new;
...
@data{@columns} = @values;  #hash slice to get column=>value pairs
my($sql, @bind) = $sql->insert($table, \%data);
$dbh->do($sql, {}, @bind);