print $_->[0] for grep {
    $_->[1]
} 
map { 
    [ $_, scalar grep { $_ eq $search } @{$hash->{$_}{member}} ] 
} keys %$hash;