Push to an array in a hash of hashes

[Endless]

So, yeah, I'm confusing myself. But here's the situation: Scanning for terms through multiple files, I want to keep track of each place a term is found in addition to the number of times the term shows up. So, I have hash of hashes with a scalar $count and an array $location. At least, that's what I want to have. So, how can I make this work? Yes, before you ask, at this point I am just throwing around @{$} and whatever other symbols I can come up with. Teach me, oh wise ones!

my %hoh;
my @arr = ('first', 'second', 'third');
push (@{$hoh{'word'}}{'array'}, @arr); #no good
$hoh{'word'}{'count'} += 1;
$hoh{'word'}{'count'} += 1;

say "The count of 'word' is ", $hoh{'word'}{'count'};
say "The array of 'word' is ", @{$hoh{'word'}}{'array'}; # still no go
+od.

[kennethk]

You missed with your curlies; you are going to store an array reference in $hoh{'word'}{'array'}, and then dereference that, so curlies go around the whole expression.

use strict;
use warnings;
use 5.10.0;

my %hoh;
my @arr = ('first', 'second', 'third');
push (@{$hoh{'word'}{'array'}}, @arr); #now good
$hoh{'word'}{'count'} += 1;
$hoh{'word'}{'count'} += 1;

say "The count of 'word' is ", $hoh{'word'}{'count'};
say "The array of 'word' is @{$hoh{'word'}{'array'}}"; # now good.

See perlreftut and/or perllol. Note also I moved your array into the double quotes, so it interpolates w/ spaces (by default).

[BillKSmith]

Note: The pertinent default is the value of the special variable LIST_SEPARATOR ($").