No need to reinvent the wheel with a Perl program, grep can do the job:

grep -c 'A$' GSE_out
[download]