Select Code to Download

use List::Util 'reduce';

...
my %hash = (foo => 'bar', baz => 1, fiddle => 'faddle');

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

# ... 

...
# ...

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