my @simpsons=("homer","bart","marge","maggie","lisa");
my @females=("lisa","marge","maggie","maude");
my %simpsons_hash;
@simpsons_hash{@simpsons} = @simpsons;
@female_simpsons = grep {$_} @simpsons_hash{@females};