Select Code to Download

use strict;
use warnings;
...
foreach my $aminoacid ( keys %count ) {
    print "$aminoacid\t occurs $count{$aminoacid} times \n";
}