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

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

for (0..$#Array){
    #How can i make use of $num_of_skip here?
    print "$Array[$_]\n" if (length $Array[$_] !=2);

}