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