in reply to Re^3: Counting amino acids
in thread Counting amino acids

I have sorted out the problem

I modify this code

$count{$a}= sprintf("%0.6f",($count{$a}/length($seq{$k})));

to this code

$count{$a}=length($seq{$k});

also I have to modify this code

my @aa= qw(A R N D C Q E G H I L K M F P S T W Y V);

to this code

my @aa= qw(A);

In Section Seekers of Perl Wisdom