$record = { 
  EMPLOYER => "company name",
  EMPLOYEES => ["john", "fred", ...],
  EMPLOYEES_FAMILY_MEMBERS => {"susan", "bill"},
};

##</code><code>##

  %CompanyInfo{ $record->{EMPLOYER} } = $record;

##</code><code>##

EMPLOYEES =~ m/jim/ and EMPLOYEES_FAMILY_MEMBERS =~ m/bill/. 

##</code><code>##

@employer = grep{$_ =~ m/Name/} keys %CompanyInfo;