my $A = $seq =~ tr/aA//;