#!/usr/bin/perl

use strict;
use Data::Dumper;
my @arr = (
            [11,22,[[]]],
            [333,444,[]],
            [6666,7777,[]]
);

push ( @{ @{ @{ @arr }[0]->[2] }[0] }, 'bbb' );
print Dumper(\@arr);
[download]