Select Code to Download

data:     iOrig     iSort
0: e20        0            4
...
6: e99        6            6

@sorted[ @iOrig ] = @data[ @iSort ]

#! perl -slw
use strict;
...
xray
lima
papa