for (@line)
{
  $employee = GetElement($_);
  $groups{$employee->[name]} = $employee->[group];
  push @list, $employee;
}

for (@list)
{
  $_->[group] = $groups{$_->[manager]} unless $_->[group];
  print ToCsv($_);
}