sub r; sub r {map {my $__ = $_; $_, map {"$__.$_"} r ${$_[0]}{$_}} keys %{$_[ +0]}} [download]
In reply to Re: walking a hash by JavaFan in thread walking a hash by rjl