Select Code to Download

my %People;
while(  my $id= GetNextId()  ) {
...
foreach my $person (  @{ $People{AGE}{20} }  ) {
    print "\t",$person->{NAME},"\n";
}

print "(The first) John Smith is ",
  "$People{ByNAME}{'John Smith'}[0]{AGE} years old.\n";

my $byID= $People{ID};
foreach my $person (  @$byID  ) {
}