You could do this:

#!/usr/bin/perl
use strict;
use Data::Dumper;

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

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