#!/usr/local/bin/perl
use strict;
use warnings;

my %seen = ();
my $string = "an apple a day";
while ($string =~ /(.)/g){
   $seen($1)++;
}
print "unique charts are:", sort(keys %seen), "\n";