my $line = readline $fh[$i];