Select Code to Download

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