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