Repeated Data Structure

Since we're in the neighborhood, let's look at 44--68:

  44      if ($round > 0) {
  45        $squares = [
  46              [
  47               $page->param('[0][0]'), 
  48               $page->param('[0][1]'), 
  49               $page->param('[0][2]')
  50              ],
          ...

Again:

        if ($round > 0) {
          for my $x (0..2) {
            for my $y (0..2) {
              $squares->[$x][$y] = $page->param("[$x][$y]");
            }
          }
        } else ...

10 lines become 3