my $cc = join q{,}, @col; my $qmarks = join q{,}, map { '?' } @values; my $sql_2 = qq{INSERT INTO mfa.genome ($cc) VALUES ($qmarks)}; $DBHandle->do( $sql_2, undef, @values );