Something like this I guess:

my @list = qw(fish bread eggs eggs fish butter);

my %check;

$check{$_}++ foreach @list;

my @unique = grep { $check{$_} == 1 } keys %check;
[download]

But I'm not much of a golfer :)

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>