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