If you're using the snippet from the perlfaq, you'll have to modify it somewhat. The easiest solution would be to return the values instead of printing it. In that case, my solution works as stands.

The FAQ answer is recursive, so modifying it to use a hash internally is non-trivial, and it would take more time to change and to debug. Hope this helps.