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

##</code><code>##

sub XFORM {
    # Extract the sort key from $_[0] and return it.
    # This will often be written in-line
    # rather than as a real subroutine.
}
my @sorted= @list[
    map { unpack "N", substr($_,-4) }
    sort
    map { XFORM($list[$_]) . pack "N", $_ }
    0..$#list
];

##</code><code>##

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