my $fh = $FH[$i];
while (my $line = <$fh>) {
   ...
}