#!/usr/bin/perl

    use warnings;
    use strict;

    # read the files into a hash of ( filename => title )

    my %files;
    while (<DATA>) {
        chomp;  # get rid of line-ending
        if (my ($file, $title) = split ' ', $_, 2) {
            $files{$file} = $title;
        }
    }

    # print out the files in our hash, sorted by file name

    foreach my $file (sort keys %files) {
        my $title = $files{$file};
        print "$file = $title\n";
    }

    __DATA__
    RS0029.DOC    INTER UNIT HARNESS REQUIREMENT SPECIFICATION

    RS0036.DOC    INSTRUMENT ELECTRONICS UNIT 
    RS0037.DOC    MECHANISM CONTROL ELECTRONICS
    RS0041.DOC    IOU DESCAN MECHANISM

    RS0042.DOC    IOU GENERIC MECHANISMS