my %commands =
(
    mul => \&mul,
    add => \&add,
    set => \&set,
    ...
);

##</code><code>##

$commands{$command}($register, $param);