my $str = q{CALL DB_PROC_FOO(} . join(',', ('?') x $n) . ')';