print "$array1[$_], $array2[$_], $array3[$_]\n"
  for 0 .. $#array1;
[download]

See perldata for a description of $#array which I presume is the bit you were struggling with

You want a hash or an array to store references to your three arrays. http://perl.plover.com/varvarname.html has a better explanation of how to approach your problem than I can ever write.

The short of it is that you want:

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

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

Also see tye's References Quick Reference for more information about references

Your code is not correct. You are trying to print a SCALAR ref that does not exist. Here is what I have:

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

Another version:

use strict;
use warnings;
local $, = "\t";
my @array1= qw(Ben bobby smith);
my @array2= qw(Ben laurie smith);
print (@array1, @array2);
print "\n";
my @arrays = (\@array1, \@array2);
use Data::Dumper;
print Dumper ($arrays[0]),"\n";

for my $row (0..$#{ $arrays[0] }) {
    print "ROW:$row: ";
    for my $array (@arrays) {
        print $array->[$row], ";";
        if ($array1[$row] eq $array2[$row]) {
           print $array->[$row], ";";
           print qq{
              \nElements $row are equal with values of
              \n$array1[$row] and $array2[$row] in
              \n$@arrays\n };
              last;
        }
    };
    print "\n";
};
[download]

for (0 .. $#array1) {
   if ($array1[$_] eq $array2[$_] && $array1[$_] eq $array3[$_]) {
      print "$array1[$_], $array2[$_], $array3[$_]\n";
   }
}
[download]