Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
my $getToysResults = {
...
ArrayOfToy=HASH(0x9b506c) at - line 28.
ARRAY(0x9b50bc) at - line 29.
Not a HASH reference at - line 30.

use Data::Diver qw/ Dive /;
my $toyArrRef = Dive $getToysResults, qw/ Toys Toy /;
...
__END__
toybox
shelf