my %lookup = (  a => \&a, 
                D => \&d, 
                X => \&X,
                x => \&x,
                d => \&d,
                     ...
         );