my @idx = grep { $seen{$nameR->[$_].$gebR->[$_] }++ } 0 .. $#{$nameR};