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