my %old_lookup;
for my $leader (keys %old) {
   $old_lookup{$_} = $leader for @{ $old{$leader} };
}