my $B = $doc->selectNodes("A/B")->[$cpt]->nodeValue();
        my $D = $doc->selectNodes("A/C/D")->[$cpt]->nodeValue();