Select Code to Download

# ST
my @fhs =
...
   sort { $a->[1] <=> $b->[1] }
   map [ $_, fileno($_) ],
   get_fhs();

# GRT
my @fhs = get_fhs();
...
   sort
   map pack('NN', fileno($fhs[$_]), $_),
   0..$#fhs;

# GRT
my @fhs = get_fhs();
...
   map pack('NN', fileno($fhs[$_]), $_),
   0..$#fhs
];