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

##</code><code>##

sub test1 {
    my $i = my $j = 0;
    my @nums;
    $j ^= 1 or push @nums, substr $s, $i - 3, 3
        while -1 != ( $i = index $s, '%', $i + 1 );
    my @sorted = @unsorted
        [ sort { $nums[$b] <=> $nums[$a] } 0 .. $#nums ]
}

__END__

          Rate keysort   test1
keysort 21.6/s      --    -30%
test1   30.6/s     42%      --