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