sub r;
sub r {map {my $__ = $_; $_, map {"$__.$_"} r ${$_[0]}{$_}} keys %{$_[0]}}