Select Code to Download

my %seen;
$seen{$_}++ foreach @array_whatsit;

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