sub hangman {
@w=split//,pop;@w{@w}=("-")x@w;@h=split$","______ | |\n |\n |\n |\n ______\n";$d="______\n|  |\n| _O_\n|  |\n| / \\\n|______";while($g<8){print@h[reverse 0..$g-1],$/,@w{@w},"$/?";$_=<>;chop;$w{$_}?$w{$_}=$_:$g++;(join"",values%w)!~/-/&&last}print$g<8?@w:$d
}

hangman("Hangman");