use strict;
use warnings;

my %sequences;

while (<>) {

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

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