どのようにperlスクリプトで各行の単語の出現を数えることができますか？

Question

ファイルには、多分、このような

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

Answer 1

は何か、このようないくつかの行が含まれていますか？

#!/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