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;
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.