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

##</code><code>##

$result .= &{ $lookup{$_} }(@time)