Perhaps you'll allow me a little plug for Array::Compare.

#!/usr/bin/perl -w

use strict;
use Array::Compare;

my $cmp = Array::Compare->new;

my @array1 = ("q", "w", "e", "r", "t", "z");
my @array2 = ("q", "w", "e", "r", "t", "y");

my @diffs = $cmp->full_compare(\@array1, \@array2);

if (@diffs) {
  print "No matches for @array1[@diffs]\n";
} else {
  print "Arrays match\n";
}
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg