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

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