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";
}
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.
Nobody says perl looks like line-noise any more
kids today don't know what line-noise IS ...