#!/usr/bin/env 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' )
     };

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