use strict;
use 5.012;
use List::MoreUtils qw/pairwise/;

my @first  = qw/1 2 3 4 5 6/;
my @second = qw/a b c d e f/;

pairwise { say "First: $a -> second: $b" } @first, @second;