refactoring Choosen -> Selected, perltidy