my $txt = "abcdecfd";
my %same = map { $_, 1 } split //, $txt;
print scalar keys %same, ' unique: [', keys %same, "]\n";