[Timofey]

в части языков программирование есть такой оператор условия case (что-то типа if только когда известны все возможные значения переменной и надо их все обработать), в perl его нет. Я делаю просто много if,а как вообще правильнее будет обработать такую ситуацию в perl?