say for pairkeys f;

##</code><code>##

sub pairkeys { my $i = 0; grep { $i ^= 1 } @_ }