SWITCH:
{
    $foo =~ tr/I/I/ == 1 && do {
        $bar = 'low';
        last SWITCH;
    };
    $foo =~ tr/I/I/ == 2 && do {
        $bar = 'med';
        last SWITCH;
    };
    $foo =~ tr/I/I/ == 3 && do {
        $bar = 'high';
        last SWITCH;
    };
    $bar = "drat";
}