Help for this page

Select Code to Download

Select or download this

for every company
   for every employee of the company
   for every family member of the company

Select or download this

my @companies = grep {  grep { $_ eq 'jim'  } @{$_->{EMPLOYEES}}
                     && grep { $_ eq 'bill' } @{$_->{FAMILY_MEMBERS}}
                     }
                keys %CompanyInfo;