my $t = {
    bar => sub {
        ...
    },
    baz => sub {
        ...
    },
};

$t->{bar}->($quux);