Clearer I think?
my $str = sprintf 'CALL DB_PROC_FOO( %s )', join ',', ('?') x $n; [download]
In reply to Re: Rewrite in a more compact way by BrowserUk in thread Rewrite in a more compact way by andreas1234567