my %is_prime;
   @primes = grep { 
                ( exists $is_prime{$_} and $is_prime{$_} )
                or 
                ( $is_prime{$_} = is_prime($_) )
             } @numbers;