while (my $line = readline $in_fh[$i] ) {