如何通过perl脚本计算每行中某个单词的出现次数？

该文件包含以下几行：

  TT      AA      TT      GG      CC      AA
  AA      GG      CC      TT      GG      CC
  GG      AA      TT      TT      CC      TT

---

也许是这样的

#!/usr/bin/env perl;
use strict;
use warnings;

while ( <DATA> ) { 
    chomp;
    my %count_of;
    $count_of{$_}++ for split; 

    print "Row $.:\n";
    foreach my $key ( sort {$count_of{$b} <=> $count_of{$a} } keys %count_of ) { 
       print "\t$key: $count_of{$key}\n";
    }
}

__DATA__
  TT      AA      TT      GG      CC      AA
  AA      GG      CC      TT      GG      CC
  GG      AA      TT      TT      CC      TT

#/usr/bin/env-perl；
严格使用；
使用警告；
而{
咀嚼；
我的%count\u；
用于拆分的{$}++的$count_；
打印“行$：\n”；
foreach my$key（排序{$b}$count_of{$a}}key的{$count_of{$b}$count_of}
打印“\t$key:{$key}\n的计数”；
}
}
__资料__
TT AA TT GG CC AA
AA GG CC TT GG CC
GG AA TT TT CC TT

不清楚您想要什么。对于给定的输入，您希望得到什么样的输出？