while (my $line = readline($FH[$i])) {
   ...
}