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

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