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

##</code><code>##

$applecount = %foo{'apple'};