#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;

my $ref = [ map { +{ id => $_ } } qw{a b c b} ];
dd $ref;
my %seen;
@$ref = grep { ! $seen{$_->{id}}++ } @$ref;
dd $ref;