String Perl

for $outerloop (0..4) {
    for $innerloop (0..4) {
        $array{"$outerloop,$innerloop"} = 1;
    }
}