my %seen; my @nodupes = grep { not $seen{$_}++ } @mayhavedupes;