scalar grep $dups{$_}++,  split //;