my  $temp = <DATA>;
    print "Discarding the file header line.\n";
    print "    ", $temp;
    
    my  @chars = qw( A C G T );
    my  %cnts;
    while( <DATA> ) {
        foreach my $char (@chars) {
#           my  $cnt = () = m/$char/g;
#           $cnts{$char} += $cnt;
#           printf "  For char '%s' I found %d\n", $char, $cnt;
            $cnts{$char} += () = m/$char/g;
        }
    }
    foreach my $char (@chars) {
        printf "  Char '%s':  %6d\n", $char, $cnts{$char};
    }

__DATA__
Generated by a completely confused program yesterday
ACGTGACTAGAGGCCCGGGGAAAAAAAAAACCCCCCC
ACCTGACTAGAGGCCCGGGGAAAAAAAAAACCCCCCC
ACGTGACTAGAGGCCCGGGGAAAAAAAAAACCCCCCC
AGGTGAGTAGAGGGGGGGGGAAAAAAAAAAGGGGGGG
ACGTGACTAGAGGCCCGGGGAAAAAAAAAACCCCCCC