{
    local $_ = $funct;
    #...
}

##</code><code>##

my %action = (
    'Save News' => \&savenews,
    'Save Book' => \&addbook,
    'Save Observ' => \&addobserv,
    'Save Rule' => \&addrule,
    # ...
    'Next' => \&viewbooks,
    'Prev' => \&viewbooks,
);