my $last = -50; # set to -50 so that the first coordinate will be included as long as it is 1 or more
map {say if $_ > $last + 50; $last = $_} @n;