#!c:/perl/bin

@mynumbers = (1..20, 25..40);

for($loopcount=0; $loopcount<40; $loopcount++)
{
        print "@mynumbers[$loopcount] \n";
}