my @result = do { my %counter; grep ++$counter{$_} == 2, @input; };