for my $newtl (sort keys %new) {
   my %needtomeet;
   for my $rep (@{ $new{$newtl} }) {
      my $oldtl = $old_lookup{$rep};
      push @{$needtomeet{$oldtl}},$rep if $oldtl;

      yadda yadda ...