Select Code to Download

    for my $h (@Tree) {
        print "$_ " for @{$h->{Path}};
        print "\n";
    }

5 32 37
5 32 38
...
3 12 11 19
5 32 35
5 32 36

0 
1 2 
...
5 32 41 
5 32 42 
5 32 43

    for (5..0) {
        @Tree = sort {
        $a->{Path}->[$_] <=> $b->{Path}->[$_]
    } @Tree;
    }

    for my $page (@Tree) {
        my $Sort = 0;
...
    }

    @Tree = sort {$a->{Sort} <=> $b->{Sort}} @Tree;