my $line = <$fh[$i]>;

##</code><code>##

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