Help for this page
my %old_lookup; for my $leader (keys %old) { $old_lookup{$_} = $leader for @{ $old{$leader} }; }
Bill => [],
for my $newtl (sort keys %new) { my %needtomeet; ... push @{$needtomeet{$oldtl}},$rep if $oldtl; yadda yadda ...