use Data::Dumper;
my %h=(   HELP => sub {print qq(help\n)},

                SAVE=>sub{print qq(save\n)} ); 
$h{Q} = $h{HELP};
print Dumper(%h);
print $h{Q}();