@dice = qw(foxrib moqabj furilw setupl camped acitao slcrae romash 
		   nodesw hefiye onudtk tevign anedvz pinesh abilyt gkyleu);

$board = join "", &make_board(fy_shuffle(@dice));

$board =~ s/([^\n]{4})/$1\n/g;

print $board;

sub make_board {
	my @board, $i;

	$board[$i++] = substr $_, int rand length, 1 foreach @_;

	return @board;
} # make_board

sub fy_shuffle {
        for (my $i = @array; -- $i;) {
                my $r = int rand (1 + $i);
                @_ [$i, $r] = @_ [$r, $i] unless $r == $i;
        }

        return @_;
} # fy_shuffle