loop question

[Clemens Bieg]

Hello,

Could someone tell me what I am doing wrong? I want it to iterate over the
lines of "extract", at each line going through all the lines of
"allnumbered", checking if the line number is the same, and, if so, print
out the line from "allnumbered". But with this I am getting only the first
line, then it stops.

Many thanks in advance.
Clemens


while (<$fh_in_extract>) {

   if( /^(\d+)/ ) {
   my $n = $1;

   while (<$fh_in_allnumbered>) {
       if( /^$n / ) {


   print $fh_out_final $_;
   }
   }
   }
}