use DDS; # aka Data::Dump::Streamer

my %self = {};
$self->{foo}     = [ 1, 2, 3 ];
$self->{bar}     = [ 4, 5, 3 ];
$self->{nerd}    = [ 3, 4, 8 ];
$self->{geek}    = 1;
$self->{useless} = 1;

my @sets   = map  {{ map{$_=>undef} @$_ }}
             grep { 'ARRAY' eq ref } values %$self;
my @uniq   = grep {
  my $el = $_;
  @sets == grep { exists $_->{$el} } @sets;
} map keys(%$_), @sets;

Dump \@uniq;