foreach my $person (@people) {
  ## ...
  ## Long and complex code that uses $person many times, might
  ## potentially be refactored into nested loops in the future, etc.
  ## ...
}

##</code><code>##

say $_->{name} foreach @people;

##</code><code>##

$age_sum += $_->{age} foreach @people;