my %seen;
my $removed = 0;
for my $i (0 .. @$ref-1) {
    my $item = $ref->[$i];
    $seen{$item->{id}}++ ? $removed++ : ($ref->[$i-$removed] = $item);
}
splice @$ref,-$removed;