## From:
  my(%a, %b);

  ## To:
  my %a ;
  use vars qw(%b) ;

##</code><code>##

tied a
tied b

##</code><code>##

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