for my $dead ($d->findnodes(q{/category/subcategory/product[product_id
+ = $prod]}))

##</code><code>##

my $xPath = '/category/subcategory/product[product_id = ' . $prod . ']';
for my $dead ($d->findnodes($xPath))