my %seen1;
my @out1 = grep { ! $seen1{ $_->{ID} }++ } @in;
my $arrayref = \@out1;
pp $arrayref;