Select Code to Download

for $name(@names) {
    my $hash_key = $name;
    $person_has =  $hash_Dref{$hash_key};
...
        }
    }
}