Select Code to Download

perl -MData::Dumper -E 'my $r=[map { id=>$_ }, ("a".."c","b")]; 
     say Dumper $r;
     my %h;
     my @z= map {$h{$_->{id}}++ ?():$_ } @$r;
    say Dumper \@z'

$VAR1 = [
          {
...
          }
        ];