[RETO-EJERCICIO] Perl: Obtener valor de digitos

[fary]

Cada letra tiene un valor, averigua el valor de las letras mediante un algoritmo.

MM +
AA +
DD
---
MAD

[fary]

Para que no se vea la solución nada mas entrar al tema la pongo en pastebin.

http://pastebin.com/MmM9uUJY