Select Code to Download

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

for my $toy ( @{$getToysResults->{Toys}->{Toy}} ) {
    for my $l ( @{$toy->{ToyLocations}->{ToyLocation}} ) {
        print "$l->{locationName}\n"
    }
}