sub DigThroughHashref {
    my $hr_data = shift;
    while (my ($key, $value) = each %{$hr_data}) {
        if (ref ($value) eq "HASH") {
            print ("Digging through [$key]:\n");
            DigThroughHashref($value, @_, $key);
        } else {
            print (join ('->', @_) . "->$key - $value\n");
        }
    } ## end while (my ($key, $value) ...
} ## end sub DigThroughHashref