Put the commands in a hash, something like this:

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

Call them like this:

$commands{$command}($register, $param);
[download]