A More Complex Flat File Sort

sub specificSort
    {
            join( "", substr( $a,  18,  8 ),     # job number
                      substr( $a,  26,  8 ),     # quote number
                      substr( $a,  83,  4 ),     # option number
                      substr( $a, 135, 10 ),     # part application
                      substr( $a,  91,  2 ),     # part type
                      substr( $a,  93, 22 ),     # part number
                      substr( $a, 155, 10 ),     # product line
                      substr( $a, 252, 10 ),     # market program
                      substr( $a, 266,  1 ))     # special offer
            cmp
            join( "", substr( $b,  18,  8 ),
                      substr( $b,  26,  8 ),
                      substr( $b,  83,  4 ),
                      substr( $b, 135, 10 ),
                      substr( $b,  91,  2 ),
                      substr( $b,  93, 22 ),
                      substr( $b, 155, 10 ),
                      substr( $b, 252, 10 ),
                      substr( $b, 266,  1 ))
    }