sub build_board_array {
  my @board = split //, shift;
  s/Q/Qu/ foreach @board;
  @board = map {
    +{ line => [map +{ letter => $_ }, splice @board, 0, 4 ]};
  } 1..4;
  return \@board;
}