Select Code to Download

$VAR1 = {
  'Toys' => bless( {
...
              ]
        }, 'ArrayOfToy' )
     };

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

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