Select Code to Download

  # p1 is starting or anchor point of the line segment
  foreach my $p1 (@{$points}) {
...
      }
    }
  }

# outer loop goes through all points
for my $i ( 0 .. $#{$points}) {
...
    }
  }
}