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