OK, this does the comparison in a single line, using no modules and no explicit loops:

my $match = @array1 == @array2 && !grep { !$_ } map { $array1[$_] eq $
+array2[$_] } 0 .. $#array1;
[download]

Hope that helps,