for my $a (0,1) {
   for my $b (0,1) {
      print "Quadrant $a,$b:\n";
      for my $i (0,1) {
         for my $j (0,1) {
            my $row = 2*$a + $i;
            my $col = 2*$b + $j;
            print "  element $i,$j => matrix coord $row, $col\n";
         }
      }
   }
}

##</code><code>##

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