Pesquisar na Comunidade

Alguém sabe me explicar porque esse script Perl não está dando certo? http://pastebin.com/CXjFSbLg Eu digito a para ir para a condicional da array mas ele não imprime, eu substitui os valores por números trocando: "eq" por "=="e funcionou mais não é meu objetivo. Alguém pode sanar essa minha dúvida de noob?

Crie um programa em que o usuário forneça medidas de 3 lados de um triangulo, e que ele indique se o triangulo é possível. Caso os lados formem um triangulo, indique se o mesmo é escaleno, equilátero ou isósceles: Criei este código, mas gostaria de saber se dá pra reduzir usando: if, else, elif, while a = int(input("Digite o 1º lado: ")) b = int(input("Digite o 2º lado: ")) c = int(input("Digite o 3º lado: ")) if a < b + c and b < c + a and c < a + b: print("Este é um triângulo") if a == b and a == c: print("Este é um triangulo equilatero") if a == b and a != c or b == c and b != a: print("Este é um triângulo isosceles") elif a != b and b != c and c != a: print("Este é um triângulo escaleno") else: print("Não existe um triângulos para medidas impostas")