Select Code to Download

use strict;
use warnings;
...
    OO     => sub { $_->adjust_a for @AoH1 },
    MOOSE  => sub { $_->adjust_a for @AoH2 },
};

        Rate    OO MOOSE
OO    3.47/s    --  -47%
MOOSE 6.56/s   89%    --