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