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