while (blah) {
  ## do something

  %person = ('fname => $fname, 'lname' => $lname);
  push @PEOPLE, \%person;
}