Select Code to Download

sub pwc {
    my ( $from, $to, $target ) = @_;
...
    return scalar grep { %$_ >= $target } values %pairs
}

use Sort::Packed 'sort_packed';

...
    return scalar grep { %$_ >= $target } values %pairs
}

sub ugly {
    my ( $from, $to, $target ) = @_;
...
    return scalar grep { %$_ >= $target } values %pairs
}

say "$^V / $Config{ archname } / $Config{ gccversion }";

...
# pwc_p 1424/s   93%    --  -56%
# ugly  3251/s  341%  128%    --

  "2490" => { 4920 => 2, 9240 => 4 },
  "3b10" => { "13b0" => -3, "b130" => 3 },

sub pwc_px {
    my ( $from, $to, $target ) = @_;
...
# pwc_px 23.1/s     --   -38%
# ugly_x 37.2/s    61%     --

@witnesses = ([ 8, 15, 22, 29 ], [ 6, 11, 16, 21, 26, 31 ], [ 2 .. 35 
+]);

{
  j376 => { "36j7" => -6 },
...
pwc_p36 2.02/s      --    -14%
ugly_36 2.36/s     17%      --