Well, I think the reason nobody's helping you is, you haven't shown any of your own code yet.

If you understand how

foreach $node ( keys( %{ $tree->{report}->{node} } ) ) {
  print "$node:VALUES: $tree->{report}->{node}->{$node}->{values}\n";
}
[download]

works, then you should be able to just add an "if" to my code to get what you want. If you don't, or if you don't even know how to do "if", in Perl, you'd better say so.