Select Code to Download

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 = $_;
}