my @collect = map 0, 0 .. NUM_TOSSES;

##</code><code>##

my @collect = ( 0 ) x NUM_TOSSES;

##</code><code>##

for ($i = 0; $i < $numTosses+1; $i++) {

foreach my $tailsCt ( 0 .. NUM_TOSSES )

##</code><code>##

foreach my $tailsCt ( 0 .. NUM_TOSSES - 1 )