foreach my $letter (@letters){
    $count{$letter}++;
}