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