Help for this page

Select Code to Download

Select or download this

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

Select or download this

  DB<1> x \%outer
0  HASH(0xc881d4)
...
   'hash' => HASH(0xc858c0)
      -> REUSED_ADDRESS
  DB<1>