my $displayed;
foreach my $s (split(//, $word)) {
	$displayed .= exists($correct_guesses{$s}) ? "$s " : "* ";
}