Select Code to Download

foreach my $e (@{$getToysResults->{Toys}{Toy}}){
    print "$e->{ToyLocations}{ToyLocation}{locationName}\n";
}

foreach my $e (@{$getToysResults->{Toys}{Toy}}) {
    my $location_array_ref = $e->{ToyLocations}{ToyLocation};
...
        print $location_array_hash_ref->{locationName}, "\n";
    } 
}