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