my $data = XMLin($xml_string, ForceArray => 1); for my $inf (@{ $data->{SellerInformation} }) { print $inf->{Seller}[0]{sellerIdFromProvider}, "\n"; for my $location (@{ $inf->{TaxableLocationsCollection}[0]{TaxableLocation} }) { print "\t", $location->{locationValue}, "\n"; } }