Select Code to Download

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

sub find_duplicates {

...
grep$_{$_}<2,grep{!$_{$_}++}@_

}