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