I'll just give a pointer to dominus's Higher-Order Perl (the book). It has sections that deal with dispatchers (which is what your code is doing). It's very much worth the read.