#!c:/perl/bin @alphabet = (a..z); for($loopcount=0; $loopcount<27; $loopcount++) { print "@alphabet[$loopcount] \n"; }