use strict;
use warnings;

while (<>) {
    my %sequences;

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

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