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];
|