my ($ref,$monk);

$ref->[2]->[1] = "value";
$ref->[3]->[2] = "value";

$monk->[1]->[3] = "value"; 

push @{ $ref }, $monk;


##</code><code>##

    $ref->[1]->[3]

##</code><code>##

    $ref->[4]