for (my $i = 0; $i < @array; $i += 2) { ... }