my ($n, %seen);
for my $array (values %$self) {
  next unless ref($array) eq 'ARRAY'; # we're only interested in arrays
  $seen{$_}++ for @$array;
  $n++;
}
return grep { $seen{$_} == $n } keys %seen;