Select Code to Download

while (blah) {
  ## do something
...
  %person = ('fname => $fname, 'lname' => $lname);
  push @PEOPLE, \%person;
}

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