#!/usr/bin/perl

use strict;
use warnings;

my @a = qw(1 2 3 4 5 6);
my @b = qw(9 2 7 6 5 4);


my @are_equal = compare_arrays(\@a, \@b);

print $_,"\n" for @are_equal;

sub compare_arrays {
    my ($first, $second) = @_;
    my @tmp;
    no warnings; # silence spurious -w undef complaints
    #return 0 unless @$first == @$second;
    for (my $i = 0; $i < @$first; $i++) 
    {
        if ($first->[$i] eq $second->[$i])
        {
            push(@tmp,$first->[$i]);
        }
    }
    return @tmp;
}

C:\>arrays.pl
2
5