$xml->findnodes('/x:ItemLookupResponse/x:Items/x:Item')
####
$item->findvalue('ASIN')
##
##
$xml->findvalue('x:ASIN', $item)
##
##
#!/usr/bin/perl
use strict;
use warnings qw( all );
use feature qw( say );
use XML::LibXML qw( );
use XML::LibXML::XPathContext qw( );
my $xml = <<'__EOS__';
-
B01KI4JSQY
__EOS__
my $doc = XML::LibXML->load_xml(string => $xml, { no_blanks => 1 });
my $xpc = XML::LibXML::XPathContext->new();
$xpc->registerNs('x', 'http://webservices.amazon.com/AWSECommerceService/2013-08-01');
for my $item ($xpc->findnodes('/x:ItemLookupResponse/x:Items/x:Item', $xml)) {
say $item->firstChild->nodeName;
say $item->firstChild->toString;
say $xpc->findvalue('x:ASIN', $item);
}