Select Code to Download

use List::Util qw(max);

...
    'List' => sub {assignmax3(@r)},
    'loop' => sub {assignmax4(@r)},
};

            Rate    loop   sort2    sort    List ternary
loop    105412/s      --    -27%    -27%    -61%    -72%
...
sort    144807/s     37%      1%      --    -46%    -62%
List    270490/s    157%     89%     87%      --    -29%
ternary 381869/s    262%    166%    164%     41%      --