Select Code to Download

  DB<61>  @ra = ({a=>1, b=>2}, {a=>1, b=>2});

...
  DB<64> print $_ for @ra
HASH(0x35a3eb0)HASH(0x35a3eb0)           # same IDs
  DB<65>

my $value = { a=>1, b=>2 };    # curly brackets to assign hashref!
$hash{$_} = { %$value } for @keys;
...

my %value = ( a=>1, b=>2 );    # round brackets to assign list!
$hash{$_} = { %value } for @keys;

  DB<78> x %$value
0  'a'
...
2  'b'
3  2
  DB<79>

  DB<72> x @keys
0  'Prefix1=A:b:1'
...
      'a' => 1
      'b' => 2
  DB<77>