I have found that the easiest version for me to read (and understand when I come back to it later) is an interpolated array:

my @qm = ('?') x $n;
my $str = do {local $" = q{,}; "CALL DB_PROC_FOO(@qm)"};
[download]