my %seen;
$seen{$_}++ for @list;

my @single = grep{ $seen{$_} == 1 }keys %seen;