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