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