Select Code to Download

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

#!/usr/bin/perl
use strict;
...
        return ();
    }
}