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