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