my $last = -50; for (@n) { if ($_ > $last + 50) { say $_; } $last = $_; }