sub all_eq {
  (@_{@_}=1)==keys%_
}

##</code><code>##

  @_{@_}=0;keys%_<2