Right. Furthermore, the perlish way is to avoid iterating over characters, if possible. Consider this:

my $A_count = ($sequence =~ tr/Aa/Aa/);
[download]