sub determine_action {
    my ($key) = @_
    if (it's first action) {
        return sub {
            my ($key, $data) = @_;
            do stuff;
        };
    elsif (it's second action) {
        return sub {
            my ($key, $data) = @_;
            do stuff;
        };
... etc...
}