#!/usr/local/bin/perl

my @array = qw(AAA BB CCCC DD EEEEE FFF GGGG);
my $flag = 0;

foreach (@array) {
    next if $flag-- > 0;
    if (length($_) == 2) {
        $flag=1;
        next;
    }
    print "$_\n";
}