next unless $. == $array[$i++];

##</code><code>##

next unless $. == $array[$i];
$i++;

##</code><code>##

next unless $. == $array[$i++];
print OUT $_;

##</code><code>##

next unless $. == $array[$i];
print $_;
++$i < @array or last;