use strict;
use warnings;
local $, = "\t";
my @array1= qw(Bob smith);
my @array2= qw(Jen smith);
print (@array1, @array2);
print "\n";
my @arrays = (\@array1, \@array2);

for my $row (0..$#{ $arrays[0] }) {
    print "$row: ";
    for my $array (@arrays) {
        print $array->[$row], ";";
    };
    print "\n";
};

__OUTPUT__

Bob   smith   Jen    smith
0: Bob          ;Jen   ;
1: smith        ;smith  ;