use strict; use warnings;
my $_ = "AAAGCCCCTTTAAACCCCxxxxxx";
my %h;
$h{$_}++ for /./g; 
print "ACGT only: ", join " ", @h{qw(A C G T)}, "\n";
print "All chars: ", join " ", @h{sort keys%h}, "\n";