my $str = q{CALL DB_PROC_FOO(} . join(q{,}, @qm) . q{)};

##</code><code>##

my $str = q/CALL DB_PROC_FOO(/ . join(q/,/, @qm) . q/)/;