Help for this page

Select Code to Download


  1. or download this
    $record = { 
  EMPLOYER => "company name",
  EMPLOYEES => ["john", "fred", ...],
  EMPLOYEES_FAMILY_MEMBERS => {"susan", "bill"},
};
  2. or download this
      %CompanyInfo{ $record->{EMPLOYER} } = $record;
  3. or download this
    EMPLOYEES =~ m/jim/ and EMPLOYEES_FAMILY_MEMBERS =~ m/bill/.
  4. or download this
    @employer = grep{$_ =~ m/Name/} keys %CompanyInfo;