Select Code to Download

{
   package Hash::WithDefault;
...

   print("$_: $hash{$_}\n") for qw( a b ~ );
}

a: a vowel
b: a consonant
~: not in the alphabet