in reply to Get All Duplicated Elements in an Array (Once, without shifting)

my @in = qw/ test foo test bar baz foo test /; my %multiples; for (@in) { $multiples{$_}++; } for keys( %multiples ) { print "$_\n" if (--$multiples{$_}); }


Comment on Re: Get All Duplicated Elements in an Array (Once, without shifting)
Download Code