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