Select Code to Download

my %seen;
$seen{$_}++ for values %hash;
my @dups = grep { $seen{ $hash{$_} } > 1 } keys %hash;
print join(',', sort @dups );