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