VAL1 ,0,0
VAL2,0,0
VEL3,0,0
VAL4,0,0
VAL5 ,490783914,4532 

##</code><code>##

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)
}


##</code><code>##


<p>
<mdc xmlns:HTML="http://www.w3.org/TR/REC-xml">
<md>
<neid>
<neun></neun>
<nedn>GET_SUB</nedn>
<nesw>R4BA06</nesw>
</neid>
<mi>
<mts>20150429141500Z</mts>
<gp>900</gp>
<mt>VAL1</mt>
<mt>VAL2</mt>
<mt>VAL3</mt>
<mt>VAL4</mt>
<mt>VAL5</mt>
<mt>VAL6</mt>
<mt>VAL7</mt>
<mt>VAL8</mt>
<mv>
<moid>NAME</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>490783914</r>
<r>0</r>
<r>0</r>
<r>0</r>
</mv>
<mv>
<moid>NAME1</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>4532</r>
<r>0</r>
<r>0</r>
<r>0</r>
</mv>
</mi>
</md>
</mdc>
##</code><code>##

VAL1,NAME,0
VAL1,NAME1,0
VAL2,NAME,0
VAL2,NAME1,0