#!/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;