for my $x_file (@files){ my $xp = XML::XPath->new(filename => $x_file); # continue as before }