test for hash key does not keep language, but tainted in foreach.
$s[^taint[uri;te st.]] $h[ $.$s[$s] ] ^apply-taint[regex; ^h.foreach[k;v]{'$k'=>'$v'} ]