use Modern::Perl;
use List::MoreUtils qw/each_array/;
my @first = 1 .. 10;
my @second = 'a' .. 'h';

my $ea = each_array(@first, @second);
while ( my ($first, $second) = $ea->() ) {
    say "$first <-> $second";
}