The ever useful List::MoreUtils module to the rescue:

use strict;
use warnings;
use 5.012;
use List::MoreUtils qw/each_array/;

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

my $ea = each_array(@first, @second);
while ( my ($f, $s) = $ea->() ) {
    say "First: $f -> second: $s"
}
[download]

Output:

First: 1 -> second: a
First: 2 -> second: b
First: 3 -> second: c
First: 4 -> second: d
First: 5 -> second: e
First: 6 -> second: f
[download]

Or even shorter (but less flexible):

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;
[download]