You can coerce the split call to return an array ref with:

$current_board[$x] = [ split('-',$current_board[$x]) ];
[download]

update: Just like Aristotle says :)
update again: and just like japhy says.

Sometimes I think Perlmonks need to have the equivilant of outfielders calling a fly ball :)