sub map_pairs(&@) {
  my $fn = shift;

  my $pkg = caller;

  map {
    my $idx = $_ * 2;
    no strict 'refs';
    my ($a, $b)
    = local (${$pkg.'::a'}, ${$pkg.'::b'})
    = (@_[$idx,$idx+1]);
    $fn->($a, $b);
  } (0..$#_/2);
}