$nLines = 5 if ( /1ord$/  );
     print OUT if $nLines-- > 0;