Select Code to Download

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 ...