

sub outer {
  my $a = shift;
  sub inner {
    print "inner a => $a\n";
  }
}

outer(12);
inner();
outer(13);
inner();
