Select Code to Download

use strict;
use warnings;
...
               compare4 => sub{ compare4 \@x, @ys },
              }
        );

           Rate  compare4 compare2a
compare4  246/s        --      -55%
compare2a 543/s      120%        --