Help for this page

Select Code to Download

Select or download this

use Benchmark qw(:all) ;

...
                        @awd = keys %unique;
                     },
                 });

Select or download this

Benchmark: running jc, mk for at least 3 CPU seconds...
        jc:  3 wallclock secs ( 3.14 usr +  0.00 sys =  3.14 CPU) @ 53
+5.67/s (n=20522)
...
      Rate   jc   mk
jc  6536/s   -- -56%
mk 14937/s 129%   --