$ cat 1133959.pl
#! perl -slw
use strict;
   . . . snip . . .
print zipD( $A, $B ), zipD( $B, $A );
print zipR( $A, $B ), zipR( $B, $A );
   . . . snip . . .
$ perl 1133959.pl
AaBbCcDdEeFGHIJAaBbCcDdEeFGHIJ
AaBbCcDdEeFGHIJaAbBcCdDeEFGHIJ
       Rate   rR   Rr   Dd   dD
rR 327095/s   --  -2% -55% -55%
Rr 334881/s   2%   -- -54% -54%
Dd 720854/s 120% 115%   --  -0%
dD 721504/s 121% 115%   0%   --