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} =  ...;