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

##</code><code>##

$ph++= 0.01;

##</code><code>##

$ph+= 0.01;