my $t = 1;
print grep {$t^=1} qw( a b c d e );

##</code><code>##

my $t = 1;

print grep {0} qw( a b c d e );

my $t = 1;

print grep {$t} qw( a b c d e );