Select Code to Download

sub hpath(\%$) {
    my ($href, $path) = @_;
...

my %c = (1 => { 2 => { 3 => 4 }});
print hpath(%c, "1.2.3");