my @dups = do {my %h; grep $h{$_}++, @array};