#!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";