my $b = \%a;
  tied(%$b) ;