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; #### my $last = -50; for (@n) { if ($_ > $last + 50) { say $_; } $last = $_; }