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

my $string;
my $seen;

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