Yet another way:

my @Array = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');
my $num_of_skip =2;

my $skip;
for (@Array) {
   next if $skip-- > 0 || 2==length && ($skip=$num_of_skip);
   ...
}
[download]