Select Code to Download

use strict;
use warnings;
...
    
    print "$_ => $subHash{$_}\n" for keys %subHash;
}

c => 3
a => 1
b => 2

...
printHash (\%hash);
...
    
    print "$_ => $subHash->{$_}\n" for keys %$subHash;
}