my %seen = ();
my $string = "J. J. Horner is so cool!";
foreach my $byte (split //, $string) {
    $seen{$byte}++;
}
print "unique chars are: ", sort(keys %seen), "\n";