my $r = \%root;
        my $tmp = $name;
        $tmp =~ s/^\Q$root_path\E//;
        $r = $r->{$_} ||= {} for split m|/|, $tmp; #/
        $dl{$name} ||= $r;