@array=do{grep$_{$_}<2,grep{!$_{$_}++}@array};