print
    'INSERT INTO table(' . join(',', @fields)
    . ') VALUES ('       . join(',', ('?') x @fields)
    . ')';

##</code><code>##

{
    local $" = ',';
    print "INSERT INTO table(@fields) VALUES (@{[ map '?', @fields]})";
}

##</code><code>##

{
    local $" = ',';
    print "INSERT INTO table(@fields) VALUES (@{[('?') x @fields]})";
}