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