Help for this page

Select Code to Download

Select or download this

while(my ($key, $value) = each(%{$tree})) {
        if (ref($value) eq 'ARRAY')  {
...
             }
        }
}