Simple try this,

my @a = ('AAA','BB','CCCC','DD','EEEEE','FFF','GGGG');


for (my $i; $i <= $#a; $i++) 
{
    if (length $a[$i] == 2) {
        $i=$i+2;
    }
    else {
        print "$a[$i]\n";
    }
}
[download]

Regards,
Gubendran.L