do { $ncount++ if /n/i } foreach ( @qbase, @sbase );