sub u {
  delete@h{grep$h{$_}++,@_};keys%h
}