Use a field/value hash to automatically generate placeholders for DBI

placeholders.pl

my %value_for = (
    field1 => 'value1',
    field2 => 'value2',
    field3 => 'value3',
    # ...
);

my $sth = $dbh->prepare(<<"SQL");
INSERT INTO table (@{[ join ',', keys %value_for ]})
VALUES (@{[ join ',', ('?') x scalar keys %value_for ]})
SQL

# Alternate for VALUES:
# join ',', map { '?' } keys %value_for

$sth->execute( values %value_for );