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