Select Code to Download

SWITCH: {
    $condition1 and do{ stuff(); last SWITCH; };
    $condition2 and do{ other(); last SWITCH; );
    default();
}

my %options = ( key1 => \&sub1,
                key2 => \&sub2,
                key3 => \&sub3 );
$options{$condition}->();