my $foo = [];
my $h = {
    word1 => [ 1..3, $foo ],
    word2'=> $foo,
};
@$foo = (4..7);