my %seen;
@partTuples = grep { ! $seen{$_->{id}}++ } @partTuples;