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