2014-01-21T23:21:50 Linuxer

Code (perl): (dl )

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

Das ist Magie! ;)