Help for this page
my $last = -50; # set to -50 so that the first coordinate will be incl +uded as long as it is 1 or more map {say if $_ > $last + 50; $last = $_} @n;
my $last = -50; for (@n) { ... } $last = $_; }