$type = determine_type();
{
    process_apples(\@items),  last if $type eq 'apples';
    process_bananas(\@items), last if $type eq 'bananas';
    ...
}
#final stuff common stuff
exit(0);