my @array = qw/one one two/;

# your algorithm

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

##</code><code>##

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