Select Code to Download

for my $a (0,1) {
   for my $b (0,1) {
...
      }
   }
}

for my $row (0..3) {
   for my $col (0..3) {
...
      print "  Element ", $row % 2,',', $col % 2,"\n";
   }
}