Converting a list to hierachical subscripts

Terse answer

{
   my $r = \$ref;
   $r = \$$r->{$_} for /[^\/]+/g;
}