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