my @test = qw( a list of words );
my %test = ( keyword => 1, value => 2)

my %outer = ( hash => \%test, array => \@test);

$outer{another_hash}=\%test;  # add same value with another key

##</code><code>##

  DB<1> x \%outer
0  HASH(0xc881d4)
   'another_hash' => HASH(0xc858c0)
      'keyword' => 1
      'value' => 2
   'array' => ARRAY(0xc85950)
      0  'a'
      1  'list'
      2  'of'
      3  'words'
   'hash' => HASH(0xc858c0)
      -> REUSED_ADDRESS
  DB<1>