use strict;
use warnings;

my %sequences;

while (<>) {

	for my $char ( split '', (split)[1] ) {
		$sequences{$char}++;
	}
}

print "$_ => $sequences{$_}", "\n" for keys %sequences;

##</code><code>##

- => 406
A => 1708
T => 1639
C => 2057
G => 1946