I may have not clarified this but the data is normalized data, not just a data dump.
One file contains information relivant to the system. The second file contains information about its owner. A the file which contains the system information has a "primary key" and that is it! This primary key is the identifying number you see in the Data::Dumper example. For you to know what a id means you have to look it up in the "master" file and you get things like Name, Owner, Group etc.

Now when you say that to you it looks like two different kinds of data. That is false. The data is INTERDEPENDENT.

Example:

File 1:
ID, Name, Group, Owner

File 2:
ID, Oracle, Tibco, AS/400, blah blah blah....
[download]

Hope this clarifies it further. Thanks,

In this script, I have to do this using data structures because the its essentially going to be a small flat file and using a database is not efficient here - (or I would have loverd to use SQL on this one :-( ).

I realize that there's a lot of value in learning how to use some more advanced constructs (AoA, AoH, HoH...), but if you still want to use SQL without the database, check out DBD::CSV. Here you can use the DBI just as if you were connected to a more sophisticated DBMS, but your tables will be simply comma-delimited text files.

#!/usr/bin/perl

use warnings;
use strict;

#Your data, I messed with the Group attribute to test my code.

my $hoh = {

        '1018884184639' => {
                'Group' => 'Marketing',
                'System Name' => '1018884184639',
                'Authorization' => 'mrossa'
        },

        '1017939213033' => {
                'Group' => 'Marketing',
                'System Name' => '1017939213033',
                'Last Update' => 'Thu Apr 18 14:29:30 2002',
                'Support Tools' => 'EGstools',
                'Source Code Management' => 'EGscm',
                'Production Platforms' => 'EGpp',
                'Design Tools' => 'EGdest',
                'Authorization' => 'dsmith',
                'Test Tools' => 'EGtt',
                'Database' => 'EGdb',
                'URL' => 'http://www.perlmonks.com',
                'Middleware' => 'EGmidd',
                'Database Tools' => 'EGdb',
                'Found Internal Libraries' => 'EGfdxi',
                'Development Languages' => 'EGdl',
                'Development Tools' => 'EGdtools',
                'Fail Over Software' => 'EGfos'
        },

        '1017939028902' => {
                'Group' => 'Shipping',
                'System Name' => '1017939028902',
                'Last Update' => 'Fri Mar 29 10:32:44 2002',
                'Support Tools' => '9',
                'Source Code Management' => '10',
                'Production Platforms' => '1',
                'Design Tools' => '12',
                'Authorization' => 'ecartman',
                'Test Tools' => '11',
                'Database' => '4',
                'URL' => 'http://www.osdncom',
                'Middleware' => '2',
                'Database Tools' => '5',
                'Found Internal Libraries' => '7',
                'Development Languages' => '6',
                'Development Tools' => '8',
                'Fail Over Software' => '3'
        },
};


#We have a hash of system hashes, and we want to sort/group by the key
+s within
#the system hashes.

#First, find out what attributes you're going to sort/group by
my %sorted_by_attribute;

#Loop through all the systems
foreach my $system (keys %$hoh) {


        #Loop through all the keys found within each system, eg 'Devel
+opment Tools'
        foreach my $attribute (keys %{$hoh->{$system}}) {


                #Get the value of that key, eg '8', and push the syste
+m name onto
                #an array which is unique to that attribute, then the 
+value of that attribute

                my $attribute_value = $hoh->{$system}{$attribute};
                push @{$sorted_by_attribute{$attribute}{$attribute_val
+ue}}, $system;


                #Offhand, $sorted_by_attribute{$attribute}{$attribute_
+value} is an array reference,
                #hence the deref'ing curlies and @ symbol. (You can't 
+put a straight array into
                #a hash)


        }



}

#Now %sorted_by_attributes looks like this:
#$VAR1 = {
#          'Group' => {
#                       'Marketing' => [
#                                        '1017939213033',
#                                        '1018884184639'
#                                      ],
#                       'Shipping' => [
#                                       '1017939028902'
#                                     ]
#                     },
#       .
#       .
#       .
#       }


#Print the data
foreach my $attribute (sort keys %sorted_by_attribute) {
        my $individual_values = $sorted_by_attribute{$attribute};

        print $attribute, "\n";
        foreach my $value (keys %$individual_values) {
                my @systems = @{$sorted_by_attribute{$attribute}{$valu
+e}};
                print $value, " := ";
                print join ", ", @systems;
                print "\n";
        }
        print "\n";

}
[download]