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