for my $inf (@{$data->{'SellerInformation'}})   {
$sellerid = $inf->{'Seller'}[0]{'sellerIdFromProvider'};
$i = 0;
for my $loc (@{$inf->{'TaxableLocationsCollection'}[0]{'TaxableLocation'}})     {
        $location[$i++] = $loc->{'locationValue'};
}
$location{$sellerid} = join(", ", @location);
print $sellerid, "\t" . $location{$sellerid} . "\n";
}