sub all_eq {
  #123456789_123456789_
   (@_=sort@_)[0]eq pop
}