Select Code to Download

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

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