my @new_array = do {
  my %bobs_your_uncle;
  grep !$bobs_your_uncle{$_->{bob}}++, @array;
};