Select Code to Download

use strict;
use warnings;
...
    print "Mismatch in $doc1Nodes[$index][1]\n"
        if $doc1Nodes[$index][0] ne $doc2Nodes[$index][0];
}

Mismatch in element2