Help for this page

Select Code to Download

Select or download this

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