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

versus:

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