DB<23> $js = {}

  DB<24> $js->{hoig}{boig}{loig}{shmoig} = 666

  DB<25> $walk = $js

  DB<26> $walk = $walk->{$_} for split /-/,"hoig-boig-loig-shmoig"

  DB<27> say $walk
666