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%     --

##</code><code>##

my $foo;
our $foo2;

cmpthese(shift, {
        'test_1' => sub { $foo = time; $foo += 1 if __PACKAGE__ eq 'main' },
        'test_2' => sub { my $bar = time; $bar += 1 if __PACKAGE__ eq 'main' },
        'test_3' => sub { $foo2 = time; $foo2 += 1 if __PACKAGE__ eq 'main' },
    });

__END__
           Rate test_2 test_3 test_1
test_2 442478/s     --    -4%   -10%
test_3 462963/s     5%     --    -6%
test_1 492611/s    11%     6%     --