my @single = grep{ $seen{$_} == 1 }map{ $seen{$_}++; $_ }@list;