Thank you so much for responding so quickly the first time. I was able to see your post before your first edit, after experimenting a bit it's safe to say I learned alot from that. Thank you also for taking your time to optimize that sub.
Comment on Re^4: getting keys of multi-level hashrefs
Thanks :)
Come to think of it, there's another beautification I realised later:
Changing print (join ('->', @_) . "->$key - $value\n");
to print (join ('->', @_, $key) . " - $value\n");
Because joining first and then appending the last bit of data manually is ugly :-P