correct this:

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);
[download]

assign a new variable for $aa.

and this:

$ph++= 0.01;
[download]

into:

$ph+= 0.01;
[download]