$VAR1 = {
  'Toys' => bless( {
           'Toy' => [  <----- here
                 ...
              ]
        }, 'ArrayOfToy' )
     };

##</code><code>##

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