Help for this page

Select Code to Download

Select or download this
```
  my @state = &share([]);
```

Select or download this

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