my(%h)=();
  _Char_8Bit(\%h);
  my($a)=$h{"a:"};

##</code><code>##

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