my @tocheck;
for my $value (values %$self) {
  push @tocheck, $value if ref($value) eq 'ARRAY';
}

my %seen;
for my $array (@tocheck) {
  $seen{$_}++ for @$array;
}

return grep { $seen{$_} == @tocheck } keys %seen;