my %seen = ();
my @duplicates = grep { $seen{ $_ }++ } @array;