Our very own davorg wrote Array::Compare...

#!/usr/bin/perl -w
use strict;
use Array::Compare;

my @arr1 = 0 .. 10;
my @arr2 = 0 .. 10;

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

if ($comp->compare(\@arr1, \@arr2) {
   print "Arrays are the same\n";
   } else {
   print "Arrays are different\n";
}
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.