...
    push @wants,
        map { { join('-', $x, $y, $z) => $_ } }
            grep { is_approximately_an_integer( @$_ ) } [
                poly_roots(
...