my @nodes = $tree->findnodes('//tr');
for my $node (@nodes) {
   my @text = $node->findvalue('td') or next;
   print dumper \@text;
   next;
   my @node_list = $node->findvalues('td/tr');
   last;
}