#this line should be on top
use XML::XPath;
#and this line has been corrected:
#my $xmlfile = XML::XPath->new(ioerf => $xml[0]->readFileHandle );

my $xmlfile = XML::XPath->new(ioref => $xml[0]->readFileHandle );