Select Code to Download

foreach my $hk ( keys %{ $href } ) { 
    print "$hk\n" for grep { /^$search$/ } @{ $href->{$hk}->{'member'}
+ };
}

#! perl
use strict;
...

__END__

[21:57][nick:~/monks]$ perl 1140148.pl
foo