while (my $line = <{$in_fh[$i]}>) {