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