Select Code to Download

use Sort::Key qw(keysort);

...
    }
);

78848 items in array...
             s/iter natural_sort    Sort::Key
natural_sort   3.51           --         -31%
Sort::Key      2.41          46%           --