Here's another way of building up your query string

my $c      = { qw/a bunch of values in a hash here/ };
my @fields = keys %$c;
print 'INSERT INTO table(' . join(',', @fields)
    . ') VALUES (?' . ',?' x $#fields . ')';

__output__

INSERT INTO table(of,a,hash,in) VALUES (?,?,?,?)
[download]

HTH

_________
broquaint