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