my %dispatch_table = (
    'apple'      => [\&a, ...],
    'orange'     => [\&o, ...],
    ...
);
while (defined($object = read one)) {
    $_->($object) for @{$dispatch_table{$type}};
}