Hello Laurent_R,

Since <FH> is Perl’s syntactic sugar for readline(*FH) (see readline), a straightforward way to disambiguate the syntax is to call readline directly:

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

Hope that helps,