sub array_tree {
    my @vars   = @_;
    my $peon   = scalar @vars;
    my $perent = shift @vars;
    while ( $peon > 0 ) {
        foreach my $sequence (@vars) {

            print "\"$perent\";";
            print '"';
            foreach (@vars) {
                print "/$_";
            }
            print '";"' . "\n";
            $perent = "$perent" . "/" . shift(@vars);
            $peon   = scalar @vars;
        }
    }
    return 1;
}