Select Code to Download

sub closer_to_origin {
   my ( $start, $test ) = @_;
...

   return ( $td < $sd );
}

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