Higher-Order Functions

        sub do_with_board {
          my $code = shift;
          for my $x (0..2) {
            for my $y (0..2) {
              $code->($x, $y);
            }
          }
        }