##
sub ref_pairwise (&;@) { goto \&List::Util::pairwise }
ref_pairwise { $a + $b } \@a, ['a'..'d'];
##
##
use v5.12;
use List::MoreUtils;
my @arr = qw/a b c d e/;
my @bar = qw/12 34 56/;
my $i = 0;
List::MoreUtils::pairwise {
return if $i > $#arr || $i > $#bar;
say "\t$i";
say "\t\t$a, $b";
$i++;
} @arr, @bar;