$current_board[$x] = \@{split('-',$current_board[$x])};