Select Code to Download

use Sort::Key 'ikeysort';

...
                                  @e = @d[ sort { $key[$a] <=> $key[$b
+] } 0 .. @d - 1 ]; },
                 sk     => sub { @e = ikeysort { (split '\|', $_, 12)[
+4] } @d }
               });

         Rate    raw    grt ambrus     sk
raw    1887/s     --   -63%   -69%   -74%
grt    5141/s   172%     --   -15%   -29%
ambrus 6061/s   221%    18%     --   -16%
sk     7246/s   284%    41%    20%     --