my %seen1; my $out1 = grep { ! $seen1{ $_->{ID} }++ } @in; pp @{ $out1 }; [download]
In reply to Re^2: Duplicated data in array. by Anonymous Monk in thread Duplicated data in array. by Anonymous Monk