Select Code to Download

for (@a) {
   push @a, ...;    # XXX Avoid
   splice @a, ...;  # XXX Avoid
   pop @a;          # XXX Avoid
}

for my $person (@people) {
   # Do anything you want to $person
   # Do anything you want to $person->{whatever}
}