use strict;
use warnings;
use Data::Dumper qw(Dumper);
my @letters = ('A', 'T', 'G', 'C', '-');


while (my $seq = <>){
    print $seq;
    my @temp;
    my %cnts = map {($_, scalar ( @temp = $seq =~ /($_)/g))} @letters;
    print Dumper \%cnts;
}