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