Select Code to Download

my %done;
my @data = (1..100);
...
    # ...
    $done{$item}++;
}

use Benchmark qw {:all};
use 5.016;
...
    -3,
    \%checks
);

             Rate evksvl evkrvl ecksvl eckrvl evksvg evkrvg vvksvl vvk
+rvl vckrvl vcksvl vvksvg vvkrvg
evksvl 10733145/s     --    -5%    -7%   -12%   -15%   -18%   -29%   -
+31%   -32%   -33%   -41%   -48%
...
vcksvl 15909705/s    48%    41%    38%    31%    27%    21%     5%    
+ 3%     1%     --   -13%   -23%
vvksvg 18207860/s    70%    61%    57%    50%    45%    38%    21%    
+18%    15%    14%     --   -12%
vvkrvg 20580512/s    92%    82%    78%    69%    64%    56%    36%    
+33%    30%    29%    13%     --