for (keys %h) { utf8::upgrade($_); $h{$_}= $h{$_} }