Select Code to Download

sub monk1 {
    my( $arg, @data ) = @_;
...
    monk2 => sub{ my @results = monk2( @data ); },
    ....
};

10 items
                     Rate sub_block_short sub_list_short
sub_block_short  305975/s              --            -4% 
sub_list_short   319968/s              5%             --

10 items
                     Rate eval_block_short eval_list_short
eval_block_short 322569/s               --             -1%
eval_list_short  325028/s               1%              --

10 items
                     Rate sub_blk_sh sub_lst_sh  eval_blk_sh eval_lst_
+sh
...
sub_lst_sh  319968/s              5%         --           -1%        -
+2%
eval_blk_sh 322569/s              5%         1%            --        -
+1%
eval_lst_sh 325028/s              6%         2%            1%         
+--

100_000 items
                   Rate eval_blk_vl sub_blk_vl eval_lst_vl sub_lst_vl
...
sub_blk_vl  36.6/s               1%         --         -2%        -3%
eval_lst_vl 37.4/s               3%*        2%          --        -1%
sub_list_vl 37.8/s               4%         3%*         1%         --

#! perl -slw
use strict;
...
sub_block_vlong  36.6/s               1%              --             -
+2%            -3%
eval_list_vlong  37.4/s               3%              2%              
+--            -1%
sub_list_vlong   37.8/s               4%              3%              
+1%             --