Help for this page

Select Code to Download

Select or download this

my @a;
foreach(1..50){
...
    print;
}
close(T);

Select or download this
```
foreach(@ARGV){
    print "$_\n";
}
```