Select Code to Download

use Sort::Key::Multi 'ii_keysort';
...
...
                SKMii => sub {
                    my @s = ii_keysort { /(\d+)([A-Z])/; $1, ord $2 } 
+@data
                } } );

SN_nsort    46.9/s       --        -81%   -89%    -90%        -92%    
+ -96%  -96%
SKN_natsort  244/s     420%          --   -43%    -47%        -58%    
+ -79%  -81%
...
GRT_pack    1136/s    2323%        366%   166%    147%         94%    
+   --  -11%
SKMii       1272/s    2614%        422%   198%    177%        117%    
+  12%    --