my %temp;
my @captured = grep { defined $temp{$_}++ } split / /, <DATA>;

##</code><code>##

my %temp;
my @captured = grep { ++$temp{$_} == 2 } split / /, <DATA>;