my %haystack;
...
            $haystack{"$x, $y, $z"} =  [
                poly_roots(
...
my @wants = grep { is_approximately_an_integer( @$_ ) } values %haystack;