sub all_eq {
!grep$_[0]ne$_,@_
}