note
broquaint
If you don't mind some memory hungry list processing code ... <b>Update</b>: urk, misread the op's question, so here's code that actually makes sense
<code>
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;
</code>
<div class="pmsig"><div class="pmsig-87452">
HTH
<p/>
<tt>_________<br><u>broquaint</u></tt>
</div></div>
370136
370136