Didn't you read the replies to your last thread? Create a hash, and add a key for each item in your list. Then use keys %hash to get your list of unique items. If you need to sort it, you can also remove nonunique items very easily from a sorted list with:

my ( @res, $last );
foreach my $item ( @sorted ) {
  next if ( defined $last and $item eq $last );
  push @res, $item;
  $last = $item;
};
[download]

This has the side effect of preserving the order of the list.