"walk" has an easy recursive definition. If "ref($here) eq 'HASH')" then call yourself recursively with an increased level-of-nesting; otherwise, print the current element out at the current nesting level and return.