<[EMAIL PROTECTED]> asked:
> I need to test if an array holds duplicates, and if so do something. 

Try

        use strict;
        use warnings;

        my @array = qw(foo baz bar foo);
        my %have;

        foreach my $item (@array){
          warn "duplicate item $item" if exists $have{$item};
          $have{$item}++;
        }

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to