11 lines
122 B
Perl
11 lines
122 B
Perl
|
for $outerloop (0..4) {
|
||
|
|
||
|
for $innerloop (0..4) {
|
||
|
|
||
|
$array{"$outerloop,$innerloop"} = 1;
|
||
|
|
||
|
}
|
||
|
|
||
|
}
|
||
|
|
||
|
|