for my $word ( @words ) {
        $word = $words{ $word } if exists $words{ $word };
        }