Converting a list to hierachical subscripts

Typical answer

   sub path2hash {
        my ($p) = @_;
        return if not $p;
        my ($head, $tail) = $p =~ m!/?([^/]+)(.*)!;
        @_ = ($tail, $_[1]->{ $head } = {});
        goto &path2hash;
    }

OK but rather a lot

Next