my $t = 0;
grep { $t^=1 } LIST

##</code><code>##

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

##</code><code>##

my $t = 0;
map { $t++ %2 ? $_ : () } LIST