In if($word = @wrds$w), as $w is never being incremented & remains undefined, $word is assigned undef every time.

Ah, never mind that as I missed $w++ earlier. (Found other problems in code but too tedious to point them out.)

OP, what is your pseudocode?