use Benchmark;
@switch_me = qw / bob frnak 1 roger james /;

timethese (1000000, {
    'test_regex' => ' &test_regex; ',
    'test_eq' => ' &test_eq; '
});

sub test_regex()
{
    for(@switch_me) {
        /bob/   && do { break };
        /frnak/ && do { break };
        $_ == 1 && do { break };
    }
}

sub test_eq()
{
    for(@switch_me) {
        $_ eq "bob" && do { break };
        $_ eq "frnak" && do { break };
        $_ == 1 && do { break };
    }
}