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

##</code><code>##

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