Select Code to Download

use Benchmark qw(:all);

...
sub meth3 {
    $_[1] + $_[2]
}

              Rate   Method Method^2 Method^3      Sub    Sub^2
Method    892013/s       --      -5%     -12%     -23%     -30%
...
Method^3 1008242/s      13%       8%       --     -13%     -21%
Sub      1165141/s      31%      24%      16%       --      -9%
Sub^2    1275428/s      43%      36%      27%       9%       --