#  Create hash with employee index as key.
my %employees = 
  (
    map {
      $_ =~ m/^employee\[(.*?)\] = new employee_element\((.*)\);/g
    } split "\n", $data
);