Select Code to Download

# Replace:
    my @sorted= sort @list;
...
            $list[$a] cmp $list[$b] || $a <=> $b
        } 0..$#list
    ];

# Replace:
    my @sorted=
...
            } 0..$#sortOn;
        ];
    };

# Replace:
    my @sorted=
...
        @list;

# with:

    my @sorted= @list[
        map { unpack "N", substr($_,-4) }
...
        map { XFORM($list[$_]) . pack "N", $_ }
        0..$#list
    ];