Select Code to Download

    my (%person1, %person2, %person3, ...);
    $person1 {name} = "...";
...
    $person2 {aeg}  =  ...;   # Oopsie.
    $person3 {name} = "...";
    $person3 {age}  =  ...;

    my (%age, %name);
    my $entitie_count = 0;
...
    $aeg  {$person2} =  ...;  # Compile time error with use strict.
    $name {$person3} = "...";
    $age  {$person3} =  ...;