my $t = 1; grep { ++$t % 2 } LIST