for ( my $y = $large_prime_found; $y <= $max;) {