#!/usr/bin/perl -w

@words=qw( Интернет Ответ Принтер Программа );
$guesses[0]="";
$wrong=0;

$choice=$words[rand @words];
$hangman="0-|--<";

@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@hangman);
OUTER:
   while ($wrong<@hangman) {
      foreach $i (0..$#letters) {
              if ($blankword[$i]) {
                       print $blankword[$i];
              }  else  {
                       print "-";
              }
      }
      print "\n";
      if ($wrong) {
              print @hangman[0..$wrong-1]
      }
      print "\n Ваш выбор: ";
      $guess=<STDIN>; chomp $guess;
      foreach(@guesses) {
            next OUTER if ($_ eq $guess);
      }
      $guesses[$#guesses]=$guess;
      $right=0;
      for ($i=0; $i<@letters; $i++) {
             if ($letters[$i] eq $guess) {
                      $blankword[$i]=$guess;
                      $right=1;
              }
      }
      $wrong++ unless($right);
      if (join('', @blankword) eq $choice) {
              print "Вы угадали!\n";
              exit;
       }
}
print "$hangman\n Печально, но было загадано слово $choice.\n";