my ($a,$c,$g,$t) = (0, 0, 0, 0);