Perl Hash References - Is it possible to put reference to nested hash into 1 variable?

Question

I have a partially nested hash like the following:

$href = {one=>1, word_counts=>{"the"=>34, "train"=>4} };

and I would like to get the value of $href->{'word_counts'}{'train'}. Is it possible to put the {'word_counts'}{'train'} into a variable, so I can access it by simply calling $href->$variable?

Answer 1

No, but you can use Data::Diver to get a value given a list of keys:

my @keys = ('word_counts', 'train');
my $value = Data::Diver::Dive($href, \(@keys));