You should probably use $doc->findvalue instead of findnodes because your XPath expression doesn't return a nodeset but boolean value.

warn $doc->findvalue('/root and /root/element1'), "\n";
warn $doc->findvalue('/root and /root/nosuch'), "\n";
[download]

yields:

true
false
[download]