my %seen_in;
for my $key (sort keys %data) {
  for my $value (values %{$data{$key}}) {
    $seen_in{$value} .= $key;
  }
}