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