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