#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw /cmpthese/;

our ($x, $y);

cmpthese -1  => {
    sub      => sub {$::x ++},
    string   =>     '$::y ++',
}

__END__
             Rate    sub string
sub     9175039/s     --   -29%
string 12862205/s    40%     --