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