my $line = <$fh[$i]>;