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

##</code><code>##

sub find_duplicates {

#23456789_123456789_123456789_
grep$_{$_}<2,grep{!$_{$_}++}@_

}