foreach my $row($xp->findnodes('/main/MAIN')){
    print "I matched a node.\n";
};