Select Code to Download

my @array = qw/one one two/;

# your algorithm
...
print @uniques;
# prints 'two'
# and I would expect 'onetwo'

my %count = ();
my @uniques = grep {! $count{$_}++} @array;