Help for this page
for ( my $y = $large_prime_found; $y <= $num;) {
for ( my $y = $large_prime_found; $y <= $num ** .5;) {
for ( my $y = $large_prime_found; $y <= $max;) {