sub find_closest_primes { my $number = shift; my @close_primes; for my $close (find_close_numbers( $number )) { push @close_primes, $close if is_prime( $close ); } return @close_primes; }