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