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