#!/usr/bin/perl --
use strict; use warnings;
my $getToysResults = {
  'Toys' => bless( {
           'Toy' => [
              bless( {
               'ToyLocations' => bless( {
                               'ToyLocation' => [
                                                {
                                            'toyQuantity' => '1',
                                            'locationName' => 'toybox'
                                                },
                                                {
                                            'toyQuantity' => '4',
                                            'locationName' => 'shelf'
                                                }
                                                ]
                                 }, 'ArrayOfToyLocation' ),
               'color' => 'none',
               'toyName' => 'Sorry',
               'size' => 'medium'
               }, 'Board' )
              ]
        }, 'ArrayOfToy' )
     };

warn $getToysResults;
warn $getToysResults->{Toys};
warn $getToysResults->{Toys}{Toy};
warn $getToysResults->{Toys}{Toy}{ToyLocations};
__END__
HASH(0x9b4fdc) at - line 27.
ArrayOfToy=HASH(0x9b506c) at - line 28.
ARRAY(0x9b50bc) at - line 29.
Not a HASH reference at - line 30.


##</code><code>##

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