my $equal = ! scalar grep { $_ ne $array1[0] } @array1;