for my $i (0 .. $#words) {
     $words[$i] = $words{$words[$i]} if (exists($words{$words[$i]}))
        }