my %seen;
grep $seen{$_}++, /./g