$letters{$1}++ while $seq =~ /([[:alpha:]])/g;