my @state = &share([]);

##</code><code>##

   for (my $i = 0;$i <6 ; ++$i) { 
         my $row = &share([]);  
          @{$state[$i]} = $row; 
     }