{
      my $b = '1';
      my $a = 'b';
      $$a = 2;
      print "b = $b\n";
  }
  print "b = $b\n";