Not sure what you ask for.

my $h = {
               'word1'=>[1,2,3],
               'word2'=>[4,5,6,7],
               };
push @{$h->{word1}}, $h->{word2};
[download]

now $h->{word1}->[3] is a reference to $h->{word2}.