added perl.dict