Select Code to Download

use Benchmark;
@switch_me = qw / bob frnak 1 roger james /;
...
        $_ == 1 && do { break };
    }
}

Benchmark: timing 1000000 iterations of test_eq, test_regex...
   test_eq:  8 wallclock secs ( 8.45 usr +  0.01 sys =  8.46 CPU)
             @ 118161.41/s (n=1000000)
test_regex: 10 wallclock secs ( 9.22 usr +  0.01 sys =  9.23 CPU)
            @ 108307.16/s (n=1000000)