#!c:/perl/bin@letters = (aa..dd);for($loopcount=0; $loopcount<82; $loopcount++){ print " (@letters[$loopcount]) ";}