given (determine_context()) {
    when ( $FOO ) { process_foo(); }
    when ( $BAR ) { its_a_bar(); }
    when ( $BAZ ) { woo_ha(); }
    default { confused(); }
}