Select Code to Download

#!/usr/bin/env perl -slw

...
    C => q[ my $zipped = zipC( $A, $B ); ],
    D => q[ my $zipped = zipD( $A, $B ); ],
};

      Rate    B    A    C    D
B  91995/s   -- -39% -66% -72%
A 151837/s  65%   -- -45% -54%
C 274373/s 198%  81%   -- -17%
D 330831/s 260% 118%  21%   --