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