for (@array) { $foo{$_}++ };
@unique = (keys %foo);