print Dumper \@employees_my_try;

##</code><code>##

    map { 
      $_ =~ m/^employee\[(.*)\] = new employee_element\((.*)\);$/g;
      my ($index, $text) = ($1, $2);
      my @list = split/,\s*/, $text;
      s/"//g for @list;
      [ $index, @list ]; 
    } split "\n", $data