Question

Let’s make this very easy. What I want:

@array = qw/one two one/; my @duplicates = duplicate(@array); print '@duplicates'; # This should now print 'one'. 

How to print duplicate values of a array/hash?

Answer 1

sub duplicate {     my @args = @_;     my %items;     for my $element(@args) {         $items{$element}++;     }     return grep {$items{$_} > 1} keys %items; }