sub paths2treeREPEL {
    my %tree;
  
    for (@_)
    {
        my $last = \\%tree;
        $last = \$$last->{$_} for split /\\/;
    }

    return \%tree;
}