perl -MData::Dumper -E 'my $r=[map { id=>$_ }, ("a".."c","b")]; 
     say Dumper $r;
     my %h;
      $h{$r->[$_]{id}}++ and delete $r->[$_] for  0..$#$r;
    say Dumper $r'