my ($ref,$monk);

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

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

push @{ $ref }, $monk;