while( <$names_to_be_replaced_file> ) {    ## read each line
    s[\b([a-z]+)\b][ $name_id{ $1 } ]ge;   ## find words, look them up and replace them with the id
    print;                                 ## Send the modified lines to stdout
}