sub array_tree {
    my @vars   = @_;
    my $perent = shift @vars;
    while (@vars) {
       print '"$perent";"/'
          .join("/",@vars)
            ."\";\"\n";
        $perent .= "/" . shift(@vars);
    }
}