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

##</code><code>##

for ( my $y = $large_prime_found; $y <= $num ** .5;) {

##</code><code>##

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