Select Code to Download

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 );