Select Code to Download

# perl -MO=Concise -e 'grep {defined} @array'
a  <@> leave[1 ref] vKP/REFC ->(end)
...
8                    <$> gvsv(*_) s ->9
5           <1> rv2av[t1] lKM/1 ->6
4              <$> gv(*array) s ->5

                     Rate short_block_ne short_bare_ne short_bare_len 
+short_block_len
short_block_ne  3008231/s             --           -0%           -10% 
+           -20%
...
long_block_len 3869054/s           6%             --           -0%    
+       -2%
long_block_ne  3872708/s           7%             0%            --    
+       -2%
long_bare_len  3963159/s           9%             2%            2%    
+        --

#! /usr/bin/perl -w

...
        long_bare_len  => q{grep length,    @long},
    }
);