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

##</code><code>##

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

##</code><code>##

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