Select Code to Download

...
#my $words = @words;  # just use (scalar @words)
...
      #my %word = map{$_=>1}split(//,$word); # not needed
      if (exists($chars{$guess})) {  # changed %word to %chars
   ...