for ($i=0; $i<@letters; $i++) {
    if ($letters[$i] eq $guess) {
        $blankword[$i]=$guess;
        $right=1;
    }
}