Select Code to Download

sub st_sort_substr {
    @{[
...
        map substr($_, 2), @unordered
    ]};
}

use Sort::Key 'ikeysort';
use Sort::Key::Natural 'natsort';
...
        natsort @unordered
    ]};
}

Perl & OS:
    v5.34.0 on cygwin
...
mcs     120/s  905%  900% 310% 296% 139%  93%   92%  92%  92%   92%   
+ 90%  62%   15%    14%   2%   --  -0% -44%
mcse    120/s  906%  901% 310% 296% 139%  93%   92%  92%  92%   92%   
+ 90%  62%   15%    14%   2%   0%   -- -44%
SKi     217/s 1708% 1699% 637% 612% 330% 247%  245% 245% 245%  245%   
+242% 192%  107%   106%  83%  80%  80%   --

#!/usr/bin/env perl

...
        natsort @unordered
    ]};
}