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