Select Code to Download

         foreach $i (0..$#letters) {
                  if ($blankword[$i]) {
...
                          print "-";
                  }

 $guesses[@guesses]=$guess;

#!/usr/bin/perl -w

...
          }
  }
  print "$hangman\nSorry, the word was $choice.\n";