my @FIELDS = qw( field1 field2 field3 );
my @PLACEHOLDERS = ('?') x @FIELD;
my $sql = do {
     local $" = ',';
     "INSERT (@FIELDS) INTO foo VALUES (@PLACEHOLDERS)";
};