sub A {
    $x = 3;
    &B;
  }
  sub B{ $x }
  my $x = 2;

  print &A;