foreach my $ppl (@PEOPLE) {
   my $fname = $ppl->{'fname'};
   ....
}