my $lol = [[{pigs =>'fly'}, [1, 2, 3], {apples => [qw(red green yellow)], oranges => [orange]}]];
my $oranges = $lol->[0][2]{oranges};