Help for this page
my %lookup = ( a => \&a, D => \&d, ... d => \&d, ... );
$result .= &{ $lookup{$_} }(@time)