Help for this page
next unless $. == $array[$i++];
next unless $. == $array[$i]; $i++;
next unless $. == $array[$i++]; print OUT $_;
next unless $. == $array[$i]; print $_; ++$i < @array or last;