>>137 こんな感じなんで，bbs.cgi 側ではソートはしてないような......

        if(open(ADFILE, 'Rock54DataFile'))
        {
#               @FOX_Ro54 = <ADFILE>    ;
                @FOX_Ro54 = map { eval {
                        no warnings;
                        my @a = (split /<>/)[5..7];
                        [qr/$a[0]/, @a[1..2]];
                }; } <ADFILE>;
                close(ADFILE)           ;
        }