$self->{foo} = [];
$self->{bar} = [];
$self->{gotit} = [ 5 ];

##</code><code>##

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

##</code><code>##

foreach(@accessors) {
    if( ref($self->{$_}) eq "ARRAY" ) {
        push @tocheck, $_;
    }
}

##</code><code>##

foreach my $e ( all the self->{dontknow}->[]'s in @tocheck ) 
    { $isect{$e}++ }