#...as before...
for(my $i=0;$i<2;$i++){
   my $fh=$FH[$i];      # <----**
   while(my $line=<$fh>){
#...as before...