for my $person (@people) {
    if ($person->{name} eq 'Bob') {
        $person->{name} = 'Robert';    # MODIFY
        $person->{age}  = 46;          # ADD
    }
}