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));