#! /usr/bin/perl -w
use strict;

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

for (@Array) {
    $skipping++, next
        if $skipping and not $skipping > $num_of_skip;
    $skipping++, next if 2 == length;
    print $_, $/;
    $skipping = 0;
}