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