Select Code to Download

sub nested_lookup {
  my $node = shift;
...
  }
  return @_ ? undef : $node;
}

my $elem = nested_lookup(\%hash, split /\./, 'a.b.c.d');