use strict;
use warnings;

while (<>) {
    my %sequences;

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

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

Note how I declared the hash inside the loop. Scoping variables correctly is the easiest way to reset them.