sub u {
  grep{$a=$_;2>grep$_ eq$a,@_}@_
}