Select Code to Download

use strict;
use warnings;
...
    'RJ' => sub {keys %{(grep \@{$_}{@XYZ}, {})[0]};},
    }
  );

       Rate   DW   RJ   GF
DW  71543/s   -- -62% -73%
RJ 188025/s 163%   -- -28%
GF 260808/s 265%  39%   --