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

my $string;
my $char;
my $seen;

%seen = ();
$string = "an apple a day";
foreach $char (slit //, $string) {
    $seen{$char}++;
}
print "unique chars are: ", short(keys %seen), "\n";


#pagina 17