my $foo;
our $foo2;

cmpthese(shift, {
        'test_1' => sub { $foo = 1; },
        'test_2' => sub { my $bar = 1; },
        'test_3' => sub { $foo2 = 1; },
    });

__END__
            Rate test_2 test_1 test_3
test_2 3731343/s     --   -30%   -37%
test_1 5347594/s    43%     --   -10%
test_3 5952381/s    60%    11%     --