sub _Char_8Bit {
  my($hash)=@_;
...
  $$hash{"a:"} = "\xe4";   #   LATIN SMALL LETTER A WITH DIAERESIS
...
}