Was machst du da?!

Funktionen können Parameter nehmen, d.h. bei dir hast du 2 Parameter, der eine von 1-4, der andere von a-f. Daraus machst du 4*6=24 Funktionen! Das ganze macht man mit einer Funktion, die einfach 2 Parameter bekommt!

Ach ja, und local macht etwas anderes als du wahrscheinlich denkst. Bitte benutze my statt local. Siehe perlfunc local und perlfunc my.

Vielleicht solltest du zuerst aber mal ein Tutorial oder Buch über Perl lesen.