>perl -wMstrict -le
"my @ra = (1, 3, 2, 3, 2, 3, qw{X b X c X});
 my %seen;
 @ra = grep !$seen{$_}++, @ra;
 print qq{@ra};
"
1 3 2 X b c