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