$same = not grep { $_ ne $array[0] } @array;