if all(@board[0;*]) eq $ab ||         # horizontal
     all(@board[1;*]) eq $ab ||
     all(@board[2;*]) eq $ab ||
     all(@board[*;0]) eq $ab ||         # vertical
     all(@board[*;1]) eq $ab ||
     all(@board[*;2]) eq $ab ||
     all(@board[*;{$++}]) eq $ab ||     # diagonal
     all(@board[2,1,0;{$++}]) eq $ab
  {