Help for this page
while (blah) { ## do something ... %person = ('fname => $fname, 'lname' => $lname); push @PEOPLE, \%person; }
foreach my $ppl (@PEOPLE) { my $fname = $ppl->{'fname'}; .... }