Perl-只有在散列中的所有重复项都打印出来后，才能在.csv文件中输入一行

我有一系列的目录代码。有许多重复的。我使用以下方法查找唯一值和重复数：

my %myHash = ();

foreach (@cc) {
  $myHash{$_}++;
}

foreach ( sort keys %myHash ) {
  print "\n $_ : $myHash{$_}";
}

输出如下所示：

PM01  :  10<br>
PM02  :  10<br>
PM03  :  6<br>
etc..

---

很抱歉没有完成标题。excel标记的重要性是因为我正在操作excel电子表格，可能有人会问，您是为excel电子表格这样做的吗？答案是肯定的。

PM01
PM01
PM01
PM01
PM01
PM01
PM01
PM01
PM01
PM01
NEW LINE HERE
PM02
PM02
PM02
PM02
PM02
PM02
PM02
PM02
PM02
PM02
NEW LINE HERE
etc..

foreach my $key ( sort keys %myHash ) {

  foreach my $iterator ( 1 .. $myHash{$key} ) {

      print $key, "\n";
  }
  print "\n";
}