Help for this page
for my $inf (@{$data->{'SellerInformation'}}) { my $sellerid = $inf->{'Seller'}[0]{'sellerIdFromProvider'}; ... } print $sellerid."\t" .join(", ", @location)."\n"; }