$seen{$_}++ for @list; my @doubles = grep $seen{$_} == 2, @list;