Help for this page

Select Code to Download


  1. or download this
    @hash{@keys} = ('value2') x @keys
  2. or download this
    perl -MData::Dump -e '@hash{(key1,key2)} = ({a=>1, b=>2},{a=>1,b=>2});
+dd \%hash'
{ key1 => { a => 1, b => 2 }, key2 => { a => 1, b => 2 } }
  3. or download this
    perl -MData::Dump -e '@hash{(key1,key2)} = ({a=>1, b=>2}) x 2;dd \%has
+h'
do {
...
  $a->{key2} = $a->{key1};
  $a;
}