my( @matches ) = grep { $_->{'fname'} eq 'John' } @PEOPLE;