I like to use:

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

...which also allows me to count occurances of different values:

$applecount = %foo{'apple'};
[download]