In response to you first one, I have a similar optimization but a bit less confusing to me:

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