Re: Adding a new key-value pair to a nested anonymous hash

[tybalt89]

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11163708
use warnings;
$SIG{__WARN__} = sub { die @_ };

my @lecshun;
my $barename = 'a barename';
my $gem = 'ruby';
my $dexi = 0;

push @lecshun, [$barename , {package=>$gem, index=>$dexi}];

use Data::Dump 'dd'; dd 'before', \@lecshun;

$lecshun[$dexi][1]{newkey} = 'newvalue';

use Data::Dump 'dd'; dd 'after', \@lecshun;

Outputs:

("before", [["a barename", { index => 0, package => "ruby" }]])
(
  "after",
  [
    [
      "a barename",
      { index => 0, newkey => "newvalue", package => "ruby" },
    ],
  ],
)