Select Code to Download

sub keysort1 {
   my @sorted = rnkeysort { substr $_, rindex( $_, '%' ) - 3, 3 } @uns
+orted;
}

sub test1 {
    my $i = my $j = 0;
...
          Rate keysort   test1
keysort 21.6/s      --    -30%
test1   30.6/s     42%      --