my @duplicates = grep {$_ if $seen{$_}>1} keys %seen;
print "There are ", @duplicates+0, " duplicates.\n";