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