my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file($filename);
foreach my $book ($doc->findnodes('/mdc/md/mt[text()="VAL1"]')
{
$val1=$book->findnodes('./r[1]/text ()'); 
push (@Val,$val1)
}