my %seen;
for my $value ( map { ref($_) eq 'ARRAY' ? @$_ : () } values %$self ) {
  $seen{$value}++;
}
return grep { $seen{$_} > 1 } keys %seen;