my($a,$c,$g,$t) = (0, 0, 0, 0);
# or
my($a,$c,$g,$t) = (0) x 4;