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