my @arrays = (\@array1, \@array2, \@array3);

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