use Data::Dumper;
my @arr = ([11,22,[[]]],[333,444,[]],[6666,7777,[]]);
push(@{$arr[0][2][0]},3);
print Dumper @arr;