my $str = q{CALL DB_PROC_FOO(} . join(q{,}, (q{?}) x $n) . q{)};
[download]

In list context, ()x is the list repetition operator. It's one of the few cases in perl where () does something more than adjust precedence or delimit function parameters.