use Data::Diver qw/ Dive /;
my $toyArrRef = Dive $getToysResults, qw/ Toys Toy /;
for my $toy ( @{ $toyArrRef  } ){
    my $arrToyLoc = Dive $toy, qw/ ToyLocations ToyLocation /;
    for my $hash ( @{ $arrToyLoc  } ){
        print "$$hash{locationName}\n";
    }
}
__END__
toybox
shelf