compare two arrays

#!F:\Perl\bin\perl -w
use Data::Dumper;

my @array1 = ('a','b','c','d','e');
my @array2 = ('a','b','c','d','e');

if ( @array1 == @array2) {
print "\n equal";
} else {
print "\n not equal";
}