my $ary1 = join(/\0/, sort(@array1));
my $ary2 = join(/\0/, sort(@array2));
if ($ary1 eq $ary2) {....}