Two ranges
#!c:/perl/bin @mynumbers = (1..20, 25..40); for($loopcount=0; $loopcount<40; $loopcount++) { print "@mynumbers[$loopcount] \n"; }