Select Code to Download

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

sub sort_and_print_hash_keys {
    my %hash = @_;