sub alist_get {
  my $k = shift;
  for (@_) { return $_ if $_->[0] eq $k }
  die "No such key in alist: $k"
}

push @{alist_get('two', @arr)->[1]}, 222;
[download]

Incidentally, => works just like a comma, except that it stringifies its LHS. It's not hash-related magic. So, you could define your array thus:

And likewise I could've invoked my subroutine as alist_get(two => @arr) -- Neat, huh?

/assumes you have a good reason to not use a hash. :-)

Hi, Try this,

    use strict;
    use warnings;
    use Data::Dumper;

    my @arr=(["one" => [1,11]], ["two"=> [2,22]]);
    
    my ($position, $value) = @ARGV;
    
    print "\nBefore:\n";
    print Dumper @arr;
    
    push (@{$arr[$position]->[1]}, $value);
    
    print "\nAfter:\n";
    print Dumper @arr;


__END__
Before:
$VAR1 = [
          'one',
          [
            1,
            11
          ]
        ];
$VAR2 = [
          'two',
          [
            2,
            22
          ]
        ];

After:
$VAR1 = [
          'one',
          [
            1,
            11
          ]
        ];
$VAR2 = [
          'two',
          [
            2,
            22,
            '222'
          ]
        ];
[download]

If you need the value as integer then use int function as push (@{$arr[$position]->[1]}, int($value));

I think is enough with this:

push @{$arr[1]->[1]},222;
[download]

Are you sure you are asking the right question and that the code represents what you think that it does? The following code does what you ask for and dumps the result:

use warnings;
use strict;
use Data::Dump::Streamer;
 
my @arr=(["one" => [1,11]], ["two"=> [2,22]]);

push @{$arr[1][1]}, 222;

Dump (\@arr);
[download]

Prints:

$ARRAY1 = [
            [
              'one',
              [
                1,
                11
              ]
            ],
            [
              'two',
              [
                2,
                22,
                222
              ]
            ]
          ];
[download]

However, I suspect that what you want is not an AoAoA, but a HoA, in which case it all looks like this:

use warnings;
use strict;
use Data::Dump::Streamer;
 
my %arr= ("one" => [1,11], "two"=> [2,22]);

push @{$arr{'two'}}, 222;

Dump (\%arr);
[download]

Prints:

$HASH1 = {
           one => [
                    1,
                    11
                  ],
           two => [
                    2,
                    22,
                    222
                  ]
         };
[download]

push @{$arr[1][1]}, 222;
[download]

my %hoa=("one" => [1,11], "two"=> [2,22]);
[download]

push @{$hoa{two}}, 222;
[download]

push @{${$arr[1]}[1]},222;
[download]