sub nested : lvalue {
  @_ == 1
   ? $_[0]
   : nested($_[0]{$_[1]}, @_[2..$#_]);
}