Help for this page

Select Code to Download

Select or download this
```
  my @data = ('','','','','');
```

Select or download this

  open STDOUT, ">>", "$output0" or die "$output0: $!\n";
  foreach (@list) {
...
    print STDOUT, @data;
  }
  close STDOUT;