for my $i ( 1 .. 7e6 ) {
            for my $j ( 1 .. 1e5 ) {
                $tmp = $j;
            }