my @placeholders = ('?') x $n;
my $str = sprintf <<'SQL', join ",", @placeholders;

    CALL DB_PROC_FOO(%s);

SQL