Gracias por la ayuda anterior, ahora mi pregunta es: Como evito hacer varios if anidados, yo recuerdo que en C o pascal usaba el switch o case, me imagino que debe de haber una funcion similar aqui en perl, alguien me puede decir cual es y su sintaxis Nuevamente de antemano mil gracias