foreach ( 1 .. 10000000 ) { 
    my $i = 1;
}
print $i, "\n";