my @arr = (0,1,2,3,4,5,6,8,10);
my $ind = 0;
my @result = grep {1 == $ind++ % 3} @arr;