...
printHash (\%hash);

sub printHash {
    my ($subHash) = @_;
    
    print "$_ => $subHash->{$_}\n" for keys %$subHash;
}