Select Code to Download

use strict;
use warnings;
...
        long_bare_len  => sub { my @a = grep length,    @long; 1 },
    }
);

                    Rate short_block_ne short_bare_ne short_block_len 
+short_bare_len
short_block_ne  231725/s             --           -4%             -7% 
+          -11%
...
long_block_len 30206/s            5%             2%             --    
+       -3%
long_bare_len  31265/s            8%             5%             4%    
+        --