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 {
	say "\t$i";
	say "\t\t$a, $b";
	$i++;
} @arr, @bar;