use strict;use warnings;  # because it's a really good idea

my @string = split(//, 'aabbccddeeffgghhi');

my %count;

foreach(@string) {
    $count{$_} ++;
}

foreach (keys(%count)) {
    print "$_ is unique\n" if $count{$_} == 1;
}