$Acount = $line =~ tr/A/A/;

##</code><code>##

    $chars{$_}++ for split //, $line;

##</code><code>##

    $chars[ord $_]++ for split //, $line;