perl -E '@coords = qw(1069 126046 126047 126048); map {say if $_ > $last+50; $last = $_} @coords' ______ 1069 126046