如何在Array List中找到重复的值？

Question

在数组列表中

my @array = ('val1','val2','val3','val4','val1');

我想得到如下的输出

Output:
No of repetition of Val1 = 2 times

请帮我把这个输出。

提前致谢！

Answer 1

my @array = ('val1','val2','val3','val4','val1');

my %seen;
$seen{$_}++ for @array;

print "No of repetition of $_ = $seen{$_} times\n"
  for grep $seen{$_} >1, sort keys %seen;

Answer 2

使用哈希：

my @array = ('val1','val2','val3','val4','val1');    
my %seen;
my $element;
foreach $element (@array){
    $seen{$element}++
}

foreach my $val (keys %seen){
    print "No of repetition of $val = $seen{$val} times\n" if ($seen{$val} > 1);
}

打印：

No of repetition of val1 = 2 times