%unique = ();
foreach $item (@array)
{ $unique{$item}++ }
@unique = keys  %unique;