Select Code to Download

c:\test>junk92 *.txt
Files: 46
...
GRT1 315/s  70%   --  -7%  -8%
sort 338/s  82%   7%   --  -1%
GRT2 341/s  84%   8%   1%   --

    sort => q[
        my @fhs = sort {
            fileno( $a ) <=> fileno( $b )
        } @fhs;
    ],