Help for this page

Select Code to Download

Select or download this

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