my $fh = "OUTPUT" . $i;

##</code><code>##

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

...

# open one
open $fhs[$i], ">", $filename or die "Cannot open the output file: $!";

...

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