Select Code to Download

#!/usr/bin/perl

...
#|- name = Homer 
#`- wife 
#   |- name = Marge

return('HASH', undef, grep { /^name$/} keys %$s) ;