my $t = 0; #even elements #my $t= 1; #odd elements grep { $t++ % 2 } LIST