xhtml12

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?