Select Code to Download

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

use Data::Dumper;

my %people;
...
Sam Malone,Cheers,Rebecca Howe
Woody Boyd,,Rebecca Howe
Rebecca Howe,Cheers,Rebecca's Manager