my @closer_ns = grep { closer_to_origin( \@point, $_ ) } @n;