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

##</code><code>##

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