in reply to How do I find if an array has duplicate elements, if so discard it?

my @old_arr = ( 'foo', 'bar', 'zoot', 'boo', 'bar', 'zoot' ) ;
my %hash = map { $_ => 1 } @old_arr ;
my @new_arr = keys %hash ;

my $dups_found = @old_arr - @new_arr ;

[download]

Originally posted as a Categorized Answer.

  • Comment on Re: How do I find if an array has duplicate elements, if so discard it?
  • Download Code

In Section Seekers of Perl Wisdom