Select Code to Download

my @names = qw{ Tom Mary Nat Luke };

foreach my $idx ( 0 .. $#names ) {
    $people{$names[$idx]} = {
...
       numbx2 => $idx * 2,
       };
}

foreach my $name ( @names ) {
    $people{$name} = { this => q{that} };
}