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]