#!c:/perl/bin@zeros = (0) x 250;for($loopcount=0; $loopcount < 250; $loopcount++){ print "$loopcount = @zeros[$loopcount] \n";}print "There are $#zeros in the \$zeros array \n";