Select Code to Download

#!/usr/bin/perl

...
for_expr  43530/s        1%        --       -1%       -5%
map_block 43840/s        2%        1%        --       -5%
map_expr  45948/s        7%        6%        5%        --

             Rate map_block  for_expr for_block  map_expr
map_block 43050/s        --       -1%       -5%       -7%
...
for_expr  43530/s        1%        --       -2%       -6%
map_block 44246/s        3%        2%        --       -5%
map_expr  46419/s        8%        7%        5%        --

pack => '@pk = @dates; @pk = map {join "/", unpack "A2 A2 A2", $_} @pk
+'

             Rate  for_expr for_block map_block  map_expr      pack
for_expr  42309/s        --       -0%       -2%       -9%      -48%
...
map_block 43115/s        2%        2%        --       -7%      -47%
map_expr  46394/s       10%       10%        8%        --      -43%
pack      80736/s       91%       91%       87%       74%        --