Help for this page

Select Code to Download

Select or download this


my @AoA = (
...

my @A = qw(0 0 0 0 1 2 0 0 1 0 1 0);

Select or download this
```
@AoA[$i][$j] = $index;
```
Select or download this
```
@A[$index] !=0
```