use 5.010;
use strict;
use warnings;

sub outer() {
  my $state = 'outer called';
  sub inner() {
    say 'my state is: ', $state // 'uninitialized';
    $state = 'inner called'
  }
}

inner();
inner();

outer();
inner();
inner();