Thank you so much for your detailed reply. Sorry I left out this subroutine.
The reason I'm using this is to share the array of arrays. I'm very new with perl how do you suggest I share this array of array instead of using this subroutine?
sub make_shared_array {
my $a = &share([]);
for (my $i = 0;$i <6 ; ++$i) {
my $row = &share([]);
$a->[$i] = $row;
}
return $a;
}
Thank you so much!!! I greatly appreciate all your help