use strict;
use warnings;
use feature qw( say state );

my $x = 42;

for (1 .. 2)
{
    for (1 .. 3)
    {
        state $x;
        ++$x;
        say "\$x = $x";
    }

    say "state \$x is out of scope here";
    say "\$x = $x";
}