#!c:/perl/bin@months=(1..12);for($loopcount=0; $loopcount<13; $loopcount++){ print "@months[$loopcount] \n";}