my %DISPTBL = (
    INCREMENT => sub {
        my ( $number, $incval )  =  @_;
        return sub { ... }
    },
);
sub do_something {
    my $action = shift;
    return $DISPTBL{$action}(@_);
}
...