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