# ... 

sub hash_char_count {
    # ...
}

# ...

print hash_char_count(\%hash), "\n";