Help for this page

Select Code to Download

Select or download this
```
my $fh = "OUTPUT" . $i;
```

Select or download this

# before the if ($. == 1)
my @fhs;

...

# use it
print {$fhs[$i]} "$line[0]\t$line[$i]\n";