my $count = 0; 
my @every_3rd = grep { ( ++$count % 3 == 0 ) } @array;