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


##</code><code>##

sub sort_and_print_hash_keys {
    my %hash = @_;