Select Code to Download

my @sorted=
    map { RESTORE($_) }
    sort
    map { XFORM($_) }
    @list;

sub XFORM {
    # Extract the sort key from $_[0] and return it.
...
    map { XFORM($list[$_]) . pack "N", $_ }
    0..$#list
];

my @index=
    map { unpack "N", substr($_,-4) }
...
    0..$#name;
@name= @name[@index];
@data= @data[@index];