my $n;
for (1..10000000) {
    $n = $_**2;
}

##</code><code>##

for (1..10000000) {
    state $n = $_**2;
}

##</code><code>##

for (1..10000000) {
    my $n = $_**2;
}