Help for this page

Select Code to Download

Select or download this
```
say for pairkeys f;
```

Select or download this

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