my %h;
  @h{qw( good bad ugly )} = part { /good/ ? 0 . . . } @people;