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.