my %hm_n2g:shared = (); my $row = &share([]); $hm_n2g{"aa"}=$row; $row->[0]=1; $row->1=2; my @arr = @{$hm_n2g{"aa"}}; print @arr[0]." ".@arr1."\n";