@results=grep ($$_{HAIR}=~ /brown/i && $$_{FIRSTNAME}=~  /^j.*/i,
 @friends{sort keys %friends});