Select Code to Download

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

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

#!/usr/bin/env perl -l

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

OP Solution:
A
...
map/grep Solution 2
A
C