Help for this page
my %commands = ( ... set => \&set, ... );
$commands{$command}($register, $param);