Select Code to Download

use strict;
use warnings;
...
  my (@one, @two);
  1 while ( $one[@one], $two[@two] ) = each %hash;
}

               Rate sneekyDuff    BUK sneekyGF   orig     GF    roy   
+ VS davido
sneekyDuff  55138/s         --    -3%     -20%   -40%   -40%   -52%  -
+54%   -55%
...
roy        115883/s       110%   103%      68%    26%    26%     --   
+-3%    -5%
VS         119184/s       116%   109%      72%    29%    29%     3%   
+ --    -2%
davido     122008/s       121%   114%      76%    33%    33%     5%   
+ 2%     --