Select Code to Download

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

my $simple = XML::Simple -> new (KeyAttr => 'node');

$tree = {
  'report' => {
...
  }
};