I think using a CPAN module is likely overkill, but I don't know what kind of values you actually want resp. how deep your structure actually is.

In the past I've used Data::Diver and Data::DPath for such things (and/or XPath modules), but if your structure is relatively fixed, something from List::Util / List::MoreUtils might work out too.