sub u{$h{$_}++for@_;grep$h{$_}<2,keys%h}