&pairwise(
  sub { $a => $b },
  \@a,
  ['a'..'d'],
);