Help for this page
my $t = 1; print grep {$t^=1} qw( a b c d e );
my $t = 1; ... my $t = 1; print grep {$t} qw( a b c d e );