Every other

[Philip Potter]

2009/10/30 Mark Fowler <mark at twoshortplanks.com>:
> my $i;
> my @new = grep { $i = !$i } @old;

Thinking about it further, this could be more readable as:

my @new = grep { ++$i % 2 } @old;

[idea stolen from pod for List::MoreUtils::part]

Phil