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

my %seen = ();
my $string = "an apple a day";
foreach my $byte(split //, $string){
   my $seen($byte)++;
}
print "unique chars are: ", sort(keys %seen), "\n";