12 lines
140 B
Perl
12 lines
140 B
Perl
|
for $outerloop (0..4) {
|
||
|
|
||
|
for $innerloop (0..4) {
|
||
|
|
||
|
$array[$outerloop][$innerloop] = 1;
|
||
|
|
||
|
}
|
||
|
|
||
|
}
|
||
|
|
||
|
print $array[0][0];
|