for (1..7235617){
    for my $i (1..100000){    
       $tmp = $_;
    }
}